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introduction 


Why for adults only? Why not! It seems as though the electronic 
games of today are geared toward the young. There are not too 
many adults that will go to the corner arcade to play the latest video 
craze, so why not have some games that adults can relate to? Here 
they are! A collection of 33 programs, just for us adults! 

Each program marked with an asterisk in the Table of Contents 
contains a sound output routine (see Chapter 1). This sound output 
will never compare with that of arcade games, but it keeps your 
computer from being dead silent! This routine was written on and 
for a Radio Shack TRS-80 Model I Level II computer system. Witha 
little modification it will work on the Radio Shack TRS-80 Model III 
Level II computer system. Apple users find a separate sound 
routine and accompanying explanation at the end of chapter one. 

If you have an IBM PC, you can skip the first chapter of this 
book entirely—the IBM is a born musician. IBM users will find 
sound (and honest-to-goodness music!) in programs besides those 
noted in the table of contents. Since the IBM PC doesn’t require a 
machine language routine to create sound and music, adding them is 
easy. You may find yourself composing background music for every 
program in the book! 

All thirty-three programs in this book were written on and for 
the TRS-80 computers mentioned above, but notes on converting 
the programs for the IBM PC and APPLE II+ or [Je have been 
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included in Appendix C. Separate listings for the Apple and the IBM 
have been included for any programs which make extensive use of 
sound and/or graphics, as noted in the table of contents. The IBM 
programs were written with the color/graphics adapter in mind, but 
suggestions are included in Appendix C for using the programs with 
a monochrome screen. 

If you own a computer system different from those mentioned 
above, you can still enjoy this book. You should be familiar enough 
with BASIC to know which commands your computer uses, so that 
you can make any needed changes. Look at the different versions of 
the more complicated programs. Chances are, one of them will work 
on your computer with just a few changes. Graphics are the hardest, 
but since many of the programs use text screen characters, you 
should be able to adapt them. Look at the charts in Appendix D and 
visualize the graphics as described in the program; then adapt them 
to the commands your computer uses. 

Most of the programs require at least 16K (kilobytes) of ran- 
dom access memory, but some of the simpler ones use less. 

All programs were designed with care, and all have been 
completely debugged. With each program you'll find: 


A brief outline describing in short what the program is about; 

A flowchart to help you understand the program; 

A sample run to let you see what the program is actually going to do 
before you run it; 

The program listing with ample REM statements in case you decide 
on making your own changes; 

A list of variables and strings and what each perform within the 
program; 

Line explanations indicating line-by-line what the program is doing 
and what steps each line is performing. 


Most of the programs can handle several different players. 
Some allow up to 10 people to play at once. One program, in the final 
chapter can handle 15 different players at once! 

The final chapter of the book is devoted to parties or friendly 
get-togethers. Here you'll find six fast action games. If you decide 
to bet real money, you can be assured that the computer will keep 
track of each cent. All games within this chapter are fair, meaning 
that the computer will do no cheating, no one sided favors to keep 
the same person winning and no printing of false amounts. Of 
course, all of the programs in the book are like that, except for one. 


So sit back, relax, and enjoy! You do not have to hide this book 
irom your Children. ib Contains iu aduil situations or foul 


language—just lots of action! 


The Sound Routine 


The sound routines in this chapter are used to enhance your enjoy- 
ment of a number of the game programs in the book. Feel free to use 
the techniques you learn here to introduce sound into your own 
programs. 


THE SOUND ROUTINE FOR THE TRS-80 


There are two ways you can use the sound routine described in 
this section. You could make a small driver program and place it ona 
tape different from your program tapes. You could also make a 
driver program by creating a machine language tape, using the 
TBUG program or the EDITOR/ASSEMBLER program available 
at your local Radio Shack store. 

If you plan to use sound routines with your TRS-80, you'll need 
a small amplifier/speaker. Radio Shack’s stock number 277-1008 
will meet your requirements. If you use TBUG to make your own 
driver, use the filename SOUND as a title. When you enter it using 
the system command and the computer returns with ? press the 
break key and your driver will be ready. (Only those who own a 
TBUG program need concern themselves with these instructions.) 

The method I will discuss now requires nothing more than a 
blank tape. I will present separate routines for 16K, 32K, and 48K 
systems. (I will give the routine for 4K at the end of this chapter.) 
Each routine is a short program in itself and as stated, should be 
kept on a separate tape. 


16K -~ ANSWER MEM SIZE? 21231 

10 FUN L=31234 TO S1L6s 

20 READ AIPOKE 1,4 

30 NEXT 

40 POKE 165246,0/PORE 16527,122 

50 DATA 221,33,33,122,221,70,0,0,1 
60 DATA 37,122,221,70,1,62,1,211,255 
70 DATA 16,254,221 ,70)1,62,2,211,255 


80 DATA 16,254,13,194,11,122,30,10,0,201 


32K -- ANSWER MEM SIZE? 47615 

10 FOR I=47616 TO 47452 

20 READ AiPOKE T,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,194 

50 DATA 221,33,33,186,221,70,0,0,1 
60 DATA 37,196,221,70,1,62,1,211,255 
70 DATA 16,254,221,701,62,2,211,255 


80 DATA 16,254,13,194,11,186,30,10,0,201 


43K -~ ANSWER MEM SIZE? 43999 
10 FOR 1=44000 TO 64036 

20 READ AIPOKE 1A 

20 NEXT 

40 POKE 16576,0;POKE 16527,250 


30 DATA 221,23,33,250,221,70,0)0,1 


40 DATA 37,250,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 


£0 DATA 16,254,13,194,11,250,30,10,0,201 


Remember, use only the program that fits your system’s 
memory size. Be sure also that line 40 is used (initialization). This 
line is very important. You will have no sound output without it. 

Each of the programs that contain sound are written for a 16K 
system. If you have a 32K or 48K system, you will also have to 
change the variables for sound output. Turn to a program that 
contains sound output. You will find that the variable (for instance 
MC in line 370 in the Master Code program, or SS in line 295 in the 
Hold Time program) is set to 31266. For a 32K system, change the 
figure (and all others in the other programs) to 47650. For a 48K 
system change that figure to 64034. I designed the programs for a 
16K machine because I believe this is the size system most people 
buy. (I could be wrong!) If I had included figures for the other 
systems, it would have made the programs confusing. Just be sure 
to change these figures for a 32K or 48K and you'll encounter no 
problems. 

If you’ve created the sound program for your system, you are 
now ready to try some experiments with sound. Remove the plug 
that is marked AUX from your recorder and plug it into the small 
amplifier/speaker that I described earlier. (Be sure there is a fresh 
battery in it.) Turn it on to a moderate to low volume. 


10 REM EXPERIMENTS WITH SOUND 

20 N=10:A=31264;REM A=47450 FOR A 32K ~ A=64034 FOR A 48K 
30 POKE A,N 

40 X=USRW REM CALL ROUTINE 

50 FOR T=1 TO 20:/NEXTiREM PAUSE 

40 IF N>=Z55 THEN SOIREM 255 LIMIT FOR VARIABLE 

70 N=N+LiGOTO 30 


£0 END 


Now run the program. You should hear sounds coming from the 
amplifier /enealer, Adinct the volume on it if necessary, Tf vou do 
not have sound, recheck the driver (machine program) to see if you 
entered all figures correctly and make sure that the initialization 
(line 40) has been completed. If you are receiving sound, the pitch 
will continue to become lower as the variable N becomes higher. 
When N reaches 255, the program will end. Never use a number for 
N that is below 10 or greater than 255, 
For a dual output, add these lines to the program in residence: 


41 IF N<= 254 THEN POKE A,N+1 : X = USR(0) 


Run the program with the above line, then add: 
42 POKE A,N-1 :X = USR(O) 


This time delete the pause loop, line 50, and run again. Any time you 
want to stop the program (if N<255) press the break key. For 
strange sounds, add these two lines and run the program. 


43. Q = RND(255):IF Q<10 THEN 43 
44 POKE A,Q : X = USR(0) 


After experimenting with the above, delete lines 41-80 and add 
the following: 


50 AF=INKEYS 

40 IPF Ag="" THEN 30 

70 IF N}=255 THEN 90 

a0 N=N+1iGOTO 30 

90 END 

The complete program should look like this: 
10 REM EXPERIMENTS WITH SOUND 


20 N=10(}A=312463REM A=47450 FOR 22K ~- A=64034 FOR 48K 


20 POKE A,N 


40 X=USROMREM CALL ROUTINE 
50 AS=INKEYS 

40 IF Ag="" THEN 30 

7O IF N}=255 THEN 90 

$0 N=N+1LiGOTO 30 

90 END 


Now run the program above. Each time you press any key, the 
tone gets lower. After you’ve experimented with this program, type 
NEW and enter the following program: 


10 REM MAKE A TUNE 

20 DIM N(OONREM FOR UP TO 100 NOTES 
30 REM WILL USE KEYS A,B,C,D,E,F,G 

40 A=10IB=S0iC=801D=1 000E=150iF=Z00iG=225 
50 T=1tAA=3124G)REM A=47650 FOR 22K - A=64034 FOR 48K 
40 CLSIPRINT"TO HEAR YOUR TUNE" 

70 PRINT" PRESS THE SPACE BAR.” 

80 PRINT'START COMPOSING, USE THE" 

90 PRINT"LETTERS A,B,C,D,E,F,G" 

100 AS=INKEYS 

110 IF Ag="" THEN 100 

120 IF Af=" " THEN 310{REM SPACE BAR 

isd IF A¢="4" THEN 210 

140 IF A$="B" THEN 220 

150 IF A$="C" THEN 220 

i40 IF Ag="D" THEN 240 


170 IF A$="E" THEN 250 


180 IF A$="F" THEN 240 


190 IF A$="G" THEN 270 


200 GOTO 100 

Z10 POKE AA,AIN(T)=AIGOTO 280 

220 POKE AA,BiIN(@)=BiGOTO 280 

220 POKE AA,CiN(D)=CiGOTO 286 

240 POKE AA,DIN()=DiGOTO 280 

250 POKE AA, EIN(D=E:GOTO 280 

260 POKE AA,FIN(D)=FiGOTO 280 

270 POKE AA,GiIN()=G 

280 X=USRWNREM CALL ROUTINE 

290 IF I>=100 THEN S10}REM N(I) FOR NOTES IN TUNE 
300 PRINT AS}I=I+LiGOTO 100 

310 T=I-ttPRINT 

320 PRINT"SPEED OF PLAYBACK (FAST,MEDIUM,SLOW)" 
230 INPUT'1L,2 OR 3° TTITT=TT#20 

340 FOR I=1 TO THF N()=0 THEN 370 

350 POKE AA, NII) X=USRO) 

340 FOR P=1 TO TTINEXT P,I 

270 PRINT 

350 PRINT"’END OF YOUR TUNE." 


370 END 


Run the above program and compose different tunes. You may 
be able to tell from the tones that I am no musical expert! You can 
experiment with the constants at line 40, A-G, to come up with some 
tones of your own. Remember to keep these constants between 10 
and 255, 10 will be the highest tone you can achieve, and 255 will be 
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the lowest. Of course, you have all the numerals between 10 and 255 
to experiment with. The program lines are explained below. 

Line 20 dimensions the N array so that 100 notes can be placed 
into your tune. You can either increase or decrease this amount, 
depending on what you are planning to compose. 

Line 30 is a remark indicating which keys will be used. 

Line 40 defines the constants for the 7 different notes (A-G). 
You can change these to whatever you choose as long as the 
numbers are between 10 and 255. 

Line 50 sets or initializes the counter I and the poke location, 
AA. Always remember that these constants are geared to a 16K 
system, here, and throughout the book. If you have a 32K system, 
this constant will be 47650. If your system is a 48K system, the 
constant will be 64034. 

Lines 60-90 are simple print statements. 

Line 100 sets up the INKEY$ function for the keys that you will 
press. 

Line 110 causes the program to loop to line 100 until a key is 
pressed. 

Lines 120-190 identify the key that was pressed. Whenever 
you press the space bar, the computer assumes that all of your notes 
are in and the tune is replayed for you. Otherwise, the computer will 
only notice keys that are within the arguments and branch to the line 
specified when they are pressed. 

Line 200 loops back to line 100. This assures that the program 
will not fall, continue if any key other than those specified is 
pressed. 

Lines 210-270 poke the value of the constant for the key that 
was pressed into location AA. This value will then be placed into the 
subscripted variable N(1) for playback. The tune you enter will be 
played back exactly as you input it. 

Line 280 will call the sound routine so you'll hear the note 
(sound) that you have selected immediately. The letter X can be any 
other letter that you choose so long as it is not used anywhere else 
within a program; that is, if you want you could use the letter 
Z:Z=USR(0) would be valid for the above program, but if you use 
A =USR(0), you would lose the constant you had for A and an error 
would occur in your program. 

Line 290 will test the amount of counter I. If it has reached 100, 
the limit for the number of notes, the program will branch to line 
310. 

Line 300 will print the key you have pressed (if valid), advance 
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the counter by 1, and return to line 100 for another key closure. 

Line 310 initializes the variable ‘I to 1-1 tor the playback ot all 
the notes you entered, provided that the space bar was pressed in 
line 120. 

Lines 320-330 ask you at what speed you want your tune 
replayed. The amount you enter, 1, 2, or 3, will be multiplied by 20 
and used in a for-next loop throughout the playback. You can ex- 
periment with different values of TT if you so choose. For example, 
TT=TT#20 could be changed to TT=TT+10, for a faster playback. 

Lines 340-360 contain 2 loops: one for notes entered and the 
other for a pause during playback. The second statement in line 340 
will end the program if one of the notes is equal to 0 (zero). It’s 
unlikely that one would be, but the statement is there to be on the 
safe side. Line 350 then pokes the value that is in the appropriate 
location in the N(D) array into location AA and calls the sound routine 
with X=USR(0). Line 360 forms the pause or delay loop used during 
playback, and also contains the next statement for the notes (I). 

Lines 370-390 terminate the program when all notes have been 
played back. 


From all these examples, you should have the general idea of 
how to use your sound routine. If not, you should review the 
material before you tackle writing programs that will include sound. 
If you plan to write your own programs with sound or to add sound to 
some that you now have, do not add the sound routine to a program 
that uses the CHR$(23) function (double size). Take my word for it, 
it will not work; you will receive nothing more than error messages. 

If you own a 4K system and you're still scratching your head 
wondering what the sounds are like, you’re in luck! Here is the 
driver for the 4K system (LEVEL I). Remember, the programs in 
this book are intended for machines with at least 16K of RAM. This 
4K driver doesn’t mean you can enter and run the other programs. 


ANSWER MEM SIZE? 20223 

10 FOR I=20224 TO 20260 

20 READ AIPOKE IA 

30 NEXT 

40 POKE 16524,0;POKE 16527,79 


30 DATA 221,33,32,79,221,70,0,051 
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60 DATA 37579)221,7051 ,62,1,211,255 

70 DATA 16,254,221 ,70)1,62,2,211,255 

80 DATA 16,254,13,194,11,79,30,10,0,201 

To receive sound POKE anumeral between 10 and 255 into 
location 20258 and CALL the routine. Example! 

100 A=20253 


110 POKE A,50:X=USR(O) 


Enter and run all of the above. You will hear a short beep from the 
amplifier/speaker. Remember that the address that you will poke a 
numeral into is 20258. Anytime you desire to hear a tone, use 
USR(O) (CALL,X=USR(0)). You can enter and run all of the short 
programs that are in this chapter on the 4K system. 

For all of the systems, remember to keep the driver that fits 
your machine RAM ona separate tape to use whenever you are both 
to use a sound output on a program and always answer MEM SIZE? 
with the correct constant when booting-up your system to protect 
the area where the sound routine is residing. Once loaded into 
memory, the driver will remain there until the power is turned off. It 
cannot be lost when you type NEW or enter a different program 
through BASIC. 

To use any of the programs that contain sound without the 
sound output, delete all of the U= USR(O) statements (machine 
language calls) from the program. 


SOUND ROUTINE FOR THE APPLE II 


The following program for the Apple II computer was written 
and tested on a 48K system. To use it, you may either type it in at 
the beginning of each program using sound—a lot of work, but 
simpler at “run-time,” or save it on a disk to be loaded each time it 
is needed for a program. The Apple II versions of programs in this 
book contain the commands to load and “call” the routine with the 
assumption that you will have it saved on the same disk with your 
programs. 

To use the routine on your program disk, first type in the 
program below and run it. The program will take less than a minute 
to run. then type in the following command: BSAVE SOUND, 
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A$300,L$1E and press the return key. The program will now be on 


wor nranram diely randu ta nan 
gee pre Ugjecss Ghossy Douay oO USS. 


SOUND 

10 FOR I=768 TO 797 

20 READ A:POKE I,A 

30 NEXT 

40 DATA 0,0,0,172,1,3 

50 DATA 174,1,3,173,2,3 

60 DATA 32,168,252,173,48,192 
70 DATA 232,208,253,136, 208,238 


80 DATA 206,0,3,208, 230,96 


The SOUND program for the Apple II is based on material 
developed by Jesse Sturgis and is used by permission. 


Games of Skill and Logic 


The Course challenges you to react quickly in order to maneuver 
your vehicle safely down an ever-changing course. 

Words-Zit presents coded messages for you to decipher. The 
code is new each time you load the program. 

Math-a-Code gives you a chance to test your prowess in 
addition . . . but each digit is represented by a letter! 

Master Code is another code game, but this time each letter is 
represented by a different tone. 

Driver’s Test allows you to test your reflexes and avoid 
collisions without risking the family car. 

What Is It? is a competitive game that tests your ability to 
guess words using clues that become progressively more specific. 
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THE COURSE 


You will be required to have top-notch driving abilities as you 
negotiate the 10 laps of this challenging course. Be careful not to 
make the slightest contact with the edge of the track because each 
time you do, it will count as a hit. You will control the vehicle with 
the left and right arrow keys. Note that the IBM version of this 
program is included in Appendix A. 


Sample Run 


>>> THE COURSE <<< 
REQUIRE INSTRUCTIONS? YES 


THE COURSE WILL REQUIRE THAT YOU 
USE TOP NOTCH REFLEXES TO CONTROL 
YOUR VEHICLE THROUGH A DISTANCE OF 
10 LAPS, THE COURSE WILL BE BOTH 
STRAIGHT AND WINDING, YOU WILL 
CONTROL YOUR VEHICLE WITH THE 

LEFT AND RIGHT ARROW KEYS. 

THE SLIGHTEST CONTACT WITH THE 
EDGE OF THE TRACK WILL CAUSE 

AN ACCIDENT, AND A HIT WILL BE 

ADDED TO YOUR SCORE. 


PRESS AKEY... 
FIRST WAIVE OF DRIVER? WALLACE 
WALLACE STRIKE A KEY TO BEGIN... 


START 


" 
Y 
RINT 
INSTRUCTIONS 
PLAYER'S 
FIRST NAME 
INITIALIZE 
VARIABLES 


POKE LANE 
GRAPHICS 


E> 
|\<> 
<> 


= 


MOVE VEHICLE 
LEFT 
MOVE VEHICLE 
RIGHT 
RESET LANE 
VARIABLES 


HIT PLUS 
ONE 


" 
Y 


OUTPUT | TALLY BEST 
% TOTAL HITS SCORE L N BIOP 


Flowchart for The Course. 
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DRIVER: 
LAPS = 
HITS = 


Program Listing 


10 
20 
30 
40 
30 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


REM PROGRAM TITLE: THE COURSE 

CLS: PRINT TABC10); 

PRINT">>) THE COURSE ¢<<" 

PRINT 

INPUT" REQUIRE INSTRUCTIONS"; X$ 

IF X$="N" OR X$="NO" THEN 210 

PRINT 

PRINT"THE COURSE WILL REQUIRE THAT YOU" 
PRINT"USE TOP NOTCH REFLEXES TO CONTROL" 
PRINT“ YOUR VEHICLE THROUGH A DISTANCE OF" 
PRINT"10Q LAPS. THE COURSE WILL BE BOTH" 
PRINT" STRAIGHT AND WINDING. YOU WILL" 
PRINT"CONTROL YOUR VEHICLE WITH THE" 
PRINT'LEFT AND RIGHT ARROW KEYS." 
PRINT"THE SLIGHTEST CONTACT WITH THE" 
PRINT" EDGE OF THE TRACK WILL CAUSE" 
PRINT"AN ACCIDENT, AND A HIT WILL BE" 
PRINT“ ADDED TO YOUR SCORE." 
PRINT: PRINT: PRINT" PRESS A KEY..." 
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200 
Bio 
220 
225 
230 
240 
245 
250 
260 
265 
2720 
279 
280 
285 
290 
293 
300 
305 
310 
315 
320 
330 
340 
350 
360 
370 
380 
390 
400 
405 
410 
415 
420 
430 
440 
450 
460 
470 
480 
485 
$00 
505 
$10 
320 
330 
235 
540 
950 
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XS$=INKEY$:1F X$="" THEN 200 
CUS. Ts behead 


INPUT" FIRST NAME OF DRIVER";DS$ 


IF D$="" THEN PRINT:GOTO 220 
PRINT D$;" STRIKE A KEY TO BEGIN..." 
XS=INKEYS:IF X$="" THEN 240 


IF T)=2 THEN CLS:GOTO 260 
CLS:DIM CX(18),CY¢(18) 

PRINT@O, "DRIVER: ";D$;:GOSUB 1000 
CC#0:LP#0:LL=0:HI=0:' THE COURSE 
CX¥=15388:CY=CX+9:J=191:C=1 
Ci=CX¥+3:C2=C14+2:' VEHICLE 

IF C¥}=16383 OR Ci>=16383 THEN 400 
IF CC#i THEN 420 

POKE CX,J:POKE CY,J 
C¥(Cy=CX¥:CY(C)=CY:' TO BLANK OLD COURSE 
CX=CX+64:CY=CV+64 

C=C+i 

DD=RND( 2) 

KY=PEEK(14400):' KEYS 

IF DD=1 THEN 340 
CX¥=CX+DD-1:CY=CY+DD-1: GOTO 360 
DD=-DD 

CkX=CX+DD:cCyYy=CY+DD 

' CHECK FOR MOVEMENT (VEHICLE) 
IF KY=32 THEN 5300 

IF KY=64 THEN 530 

GOTO 280 

CC=1:LP=LP+i 

IF (LP/10)=.6 THEN LL=LL+1:LP=1 
PRINT@64,"LAPS =";LL; 

IF LL)=10 THEN 700 ELSE GOTO 270 
POKE CX(C),32:POKE CY(C),32 

POKE Ci,32:POKE C2,32 

IF C2)>=16319 THEN 290 
Ci=01+69:C2=C2+64 

POKE C1,183:POKE €2,187 
CL=PEEK(Ci-1):CR=PEEK(C2+1) 

IF ABS(CL+CR)<¢>64 THEN 600 

GOTO 290 

' VEHICLE MOVEMENT (LEFT)? 

POKE C1i,32:POKE C2,32 
CieCi-1:C02=C2-1 

GOTO 280 

' VEHICLE MOVEMENT (RIGHT) 

POKE C1,32:POKE €2,32 

IF €C2)>=16319 THEN 280 
CisCie¢-i:CZ2=C2+1 


560 GOTO 280 

600 ' HITS TO VEHICLE 

610 HI=HI+1 

620 PRINT@1i28,"HITS =";,HI; 

630 GOTO 290 

700 ' FINISH 

710 PRINT@192,CHR$(230) 

720 IF HI=0 THEN 800 

730 PRINT" YOU DIDN'T MAKE THE";LL; "LAPS" 
740 PRINT'WITHOUT ERROR. YOU TOOK A" 
750 PRINT'TOTAL OF"; HI; "HITS...." 
760 PRINT"TRY AGAIN, ";D§; 

770 INPUT X8§ 

780 IF X$="N" OR X$="NO" THEN 1100 
790 AT=AT+1:PRINT:GOTO 830 

800 PRINT"NOT BAD! NO HITS AT ALL!" 
610 PRINT'THINK YOU MIGHT WANT TO" 
820 GOTO 760 

830 TC(T)=HI:' BEST SCORE 

835 IF T<=1 THEN 920 

840 =1:Z=0 

850 IF Tcl) <¢=T(I+i) THEN 880 

860 YSHTCI): TCI = TC141)9:TC14+192=YS 
870 Z=i 

880 I=I+1i:IF I>=T THEN 9300 

890 GOTO 850 

900 IF Z=1 THEN 840 

910 BS=T(1> 

920 T=T+1:1F Td=#=5 THEN BS=T(1):T=3 
930 PRINT 

940 PRINT:GOTO 230 
1000 ' MESSAGE 

1010 IF T<=2 THEN 1040 
1020 PRINT@42,"BEST SCORE: ";8S; 
1030 PRINT@106,"“ATTEMPTS: “;AT; 
1040 RETURN 
1100 ‘ END 
1110 CLS 

1120 PRINT“ END OF PROGRAM RUN..." 
1130 END 


The Variables and Strings 


X$ - General purpose for input commands 

T - For users’ scores 

AT - Total user attempts 

D§$ - Name of driver 

CX & CY (subscripted) for left and right sides of the lane 


CC - General purpose variable. When CC is equal to 1, the previous 
track will be reset as a new course 1s poked. 

LP - When this variable is divided by 10, one lap will have been 
completed 

LL - Total laps 

HI - Total hits per 10 lap period 

CX, CY & J - For lane placement, poked into video memory 

Cl & C2 - For shape of vehicle, poked into video memory 

C - Used in conjunction with subscripted variables CX & CY to poke 
previous track with blanks, CHR$(32) 

DD - A random amount to move track (shape) left or right 

KY - For user key closure: Left arrow to move vehicle left and right 
arrow to move vehicle right 

CL & CR - Used to detect when a user’s vehicle has hit the side of 
the lane 

Td) - For users’ best run 

Z - General purpose, used to insure that the best run is correct 

BS - Best score obtained 


Explanation of the Program Lines 

Lines 20-200 print all instructions, if they are needed. 

Line 210 initializes two of the variables. 

Lines 220-240 asks for the user's first name and a key press to 
begin the game. 

Line 245 skips the dimension statements, if they have already 
been used. 

Line 250 is the dimension statement for the subscripted vari- 
ables CX and CY, which poked the locations of the left and right 
sides of the lane. 

Line 260 prints the driver's name and then branches to 1000 
(GOSUB) where best score and total attempts are printed if the 
variable T is greater than or equal to 2. 

Line 265 initializes more variables: CC for the blanking of the 
old or previous lane, LP for each lap, LL for total laps, and HI for 
total hits. 

Lines 270-630 poke the left and right sides of the lane until the 
bottom of the video is reached. Then the vehicle is poked at the top 
of the video. The old course is then followed, using the left and right 
arrow keys, and the vehicle moves toward the bottom of the video. 
While all of this is taking place, the old lane (behind the vehicle) is 
blanked out and a new course is poked. The user will not be 
grounded for ‘hits’ to the old lane, just the new, which is being poked 
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while he or she is driving. This is decided by the absolute amount of 
CL+CR. If this amount is not equal to 64, a hit has been made to 
either side of the lane, If LP/10=6, one lap has been completed, 
and LL is then advanced by one. If LL>=10 (laps) the program 
branches to line 700, where the score is tallied and the user is asked 
if he or she wants to try again. 

Lines 840-900 determine the best score. The program con- 
tinues to loop here until T(1) is the lowest number of hits. When 
equal to 1 variable Z indicates that the lowest has not been reached, 
so the program branches back to line 840 and begins again. 
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INTERCHANGE: A FOR M, 
E FOR J, C FOR R, Z FOR D, 
? FOR ??, AND THAT OTHER 


LETTER WAS ? FOR L 


WORDS-ZIT 


In this game you'll be faced with decoding 20 different mes- 
sages formed by interchanging all of the letters of the alphabet, 
except for E, I and O. Each message will look like a bunch of 
garbage, but after you have decoded the first message, the last 19 
shouldn’t be so hard! The program uses INKEY$. If you make 
a mistake, use the left arrow key to backspace over your mistake 
and then continue. 


Sample Run 


INSTRUCTIONS? YES 

WORDS-ZIT 

YOU WILL BE FACED WITH 20 DIFFERENT 
MESSAGES TO DECODE. ALL THE 
LETTERS OF THE ALPHABET HAVE 

BEEN INTERCHANGED, EXCEPT FOR E, 

|, AND O, WHICH REMAIN THE SAME. 

IF YOU MAKE IT THROUGH THE FIRST 
MESSAGE, REMEMBER WHICH LETTERS 
WERE CHANGED WITH WHICH, THEN THE 
FOLLOWING 19 SHOULDN'T BE SO HARD. 
TYPE SLOWLY, DON’T BE IN A HURRY. 
THE PROGRAM USES INKEY$, IF YOU 
MAKE A MISTAKE, USE THE LEFT 
ARROW KEY TO BACKSPACE. 

PRESS ENTER? 


GOH MLFE DMIZ ONE SIAMD 


20 


START 


Y 


PRINT 
INSTRUCTIONS 


REAG DATA 
UST 


F . | 
GET 
MESSAGE 


SET LETTEAS 
RANDOM SORT 


r PRINT 
MESSAGE 


Saco Ononn 


XS = INKEYS 


BACKSPACE 


ADVANCE 
COUNTER 


CORRECT 


COMPARE 


Flowchart for Words-Zit. 
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THE MESSAGE? 
| DO NOT HAVE ANY IDEA 


YOU HAVE MISSED 19 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


IR DMEG QESE LBB LZ ZIKPBE 


THE MESSAGE? 
IS MEG_IN THE HOUSE NOW 


YOU HAVE MISSED 23 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


ULN GOH NOD QOSJ RLZDES 


THE MESSAGE? 
YOU HAVE SEEN THE RIDER 


YOU HAVE MISSED 20 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


GOH MLFE KYLE ID DMIZ RLS 


THE MESSAGE? 

SCRAMBLE A LITTLE MORE 

YOU HAVE MISSED 23 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


STOP 


(This is not a complete run. Messages were guessed at so 


as to reveal the code.) 
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Program Listing 


10 

20 

30 

40 

30 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
910 
420 
430 
440 
450 


PROGRAM TITLE: WORD-ZIT 


RANDOM: CLEAR 700 

CLS: INPUT" INSTRUCTIONS" ; A$ 

IF AS<>"Y" AND A&$<>"YES" THEN 200 
PRINT'WORDS-ZIT" 

PRINT" YOU WILL BE FACED WITH 20 DIFFERENT" 
PRINT"MESSAGES TO DECODE. ALL THE" 
PRINT"LETTERS OF THE ALPHABET HAVE" 
PRINT"BEEN INTERCHANGED, EXCEPT FOR E," 


PRINT"T, AND OQ, WHICH REMAIN THE SAME." 

PRINT’ IF YOU MAKE IT THROUGH THE FIRST" 

PRINT"MESSAGE, REMEMBER WHICH LETTERS" 

PRINT" WERE CHANGED WITH WHICH, THEN THE" 

PRINT" FOLLOWING 19 SHOULDN'T BE SO HARD." 

PRINT"'TYPE SLOWLY, DON'T BE IN A HURRY,“ 

PRINT"THE PROGRAM USES INKEYS$. IF you" 

PRINT'MAKE A MISTAKE, USE THE (LEFT 

PRINT" ARROW) KEY TO BACKSPACE." 

INPUT" PRESS ENTER"; A$ 

CLS 

DIM U$¢(21),MC21),X%$(27),L8¢(27) 

DIM W$(21),L¢627):WD=1 

GOSUB 4000:WS=WS$(X) :W=LEN(W$):' MESSAGE 
SET LETTERS THEN REDO 

Asi: IT#65 

X$ (CA) =CHRS (CI): LCA SA 

AzA+i:I=I4+1 

IF 1=91 THEN 300 

GOTO260 

A=1:PRINT@0,STRING$(14,32) 

IF WD>=#]3 THEN 470 

X=RND( 26) 

IF L¢(X)}=0 THEN 310 


LS§CA)=X$ (XK): L¢XK9=0 

AzA+1 

IF A=27 THEN 370 

GOTO 310 

' PLACE E,1I, & Q IN PROPER PLACE 
ZS="E" M25 


FOR [=1 TO 27 

IF L§$(1)=Z2§ THEN 420 

NEXT 

" NOW INTERCHANGE EACH 

LS=L$(M) :L$(M)=LS( I): L$ CI) =L§ 

IF Z2$="E" THEN Z$="I":M=9:GOTO 390 
IF 2$="I" THEN Z$="0O":M=15:GOTO 390 
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460 
480 
490 
500 
910 
920 
530 
340 
550 
360 
370 
$80 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
730 
760 
770 
900 
910 
920 
930 
935 
940 
950 
960 
965 
970 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
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IF MID$(WS$,A,1)=" “ THEN T$=" ":GOTO 520 
NEXT 
TS=L$¢9) 
PRINT T$; 
A=A+1i 
IF A>W THEN 560 
GOTO 470 
PRINT: PRINT 
PRINT"THE MESSAGE ?" 
P=256:A=1 
XS=INKEYS 
PRINT@P, CHR§ (143); 
FOR T=1 TO 50:NEXT 
PRINT@P," "; 
FOR T=i TO 25:NEXT 
IF X¥$=s"" THEN 390 
IF ASC(X$)=8 THEN 690 
PRINT@P,XK5;:P=P+1:A=A+1:GOTO 750 
IF A>W THEN 900 
GOTO $90 
P=P~1:A=A-1:' BACKSPACE 
IF P¢=256 THEN P=256:A=1 
' BACKSPACE TOTAL MESSAGE 
QS=xLEFT$(Q$,A-1> 
GOTO 590 
' TOTAL MESSAGE 
Q$=Q8+Ks 
GOTO 670 
' ONE COMPLETED 
PRINT: PRINT 
IF @$¢).WS THEN 1000 
PRINT" YOU HAVE THIS ONE CORRECT. " 
CR=CR+1:IF WD>=3 THEN 960 
PRINT"DO YOU REMEMBER THE CODE FOR" 
PRINT"EACH OF THE LETTERS..." 
FOR T=1 TO 3000:NEXT 
IF WD=21 THEN 1200 
CLS:Q$="":GOTO 230 
' INCORRECT LETTERS 
FOR I=1 TO LENC(WS$} 
IF MID$(@8,I,1)¢>MID$(WS,1,1) THEN 1040 
NEXT:GOTO 1050 
ML=ML+1:GOTO 1030 
PRINT" YOU HAVE MISSED";ML;"LETTERS. " 
PRINT"'TRY THE SAME ONE OR GO TO THE NEXT" 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 
4000 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
5000 
5010 
$020 
3030 
5040 
5050 
5060 


93070 
5980 
5090 
5100 
$110 


§120 
$130 


$140 
9150 


INPUT“ENTER SAME OR NEXT" ;A$:ML=0 

IF A$="SAME" THEN 1110 

IF A$="NEXT" THEN SK=SK+1:GOTO 960 
PRINT:GOTO 1060 

Qs“01"" 

CLs 

PRINT:GOTO 460 

‘ END OF LIST 

CLS 

PRINT"SORRY, WE HAVE USED THE ENTIRE" 
PRINT"LIST OF MESSAGES..." 

PRINT"YOUR FINAL SCORE: " 

‘ CORRECT / INCORRECT 

PRINT CR;"MESSAGES CORRECT." 

PRINT SK; "MESSAGES INCORRECT OR SKIPPED.“ 
PRINT 

PRINT"END OF RUN." 

END 

‘ READ DATA LIST IF NOT DONE 

IF WD)=2 THEN 4030 

FOR I=t TO 20:READ U$(1):M(1)=sI:NEXT 
' GET RANDOM MESSAGE 

X=RND(20):1F M(X)=0 THEN 4040 

WS CX) =US (XK) MCX) =0 

‘ COUNTER ADVANCE 

WD=WD+1 

PRINT@0, "PROCESSING..." 

FOR T=1 TO 1000:NEXT 

RETURN 

DATA YOU HAVE THIS ONE RIGHT 

DATA YOU MUST BE GETTING BETTER 

DATA DOING FINE 

DATA A ROLLING STONE DOES NOT GET WET 
DATA YOU HAVE MADE IT THIS FAR 

DATA YOU MUST BE A CRACK AT CODES 
DATA WORDS OR MESSAGES YOU MUST KNOW 
THE CODE 

DATA IF THEY WERE ALL AS SIMPLE 

DATA IF YOU WANT TO QUIT THINK AGAIN 
DATA WE ARE JUST BEGINNING 

DATA CAN YOU NOT WORK FASTER 

DATA PERHAPS YOU ARE BEGINNING TO 
DEHYDRATE 

DATA PERHAPS YOU HAVE TO WORK 
TOMORROW 

DATA HIGH ON A MOUNTAIN BREAKING A CODE 
DATA IF YOU MADE IT THIS FAR BE A SPY 
DATA MICRO CHIPS ALL OVER THE FLOOR 
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$160 DATA HAVE YOU THOUGHT OF ENTERING A 
SCHOOL OF CODE 

°$170 DATA ALL THE TIDES AND A FULL MOON 
COULD NOT STOP YOU NOW 

$180 DATA SAY YES IF YOU WANT TO QUIT AND I 
WILL NOT RESPOND 

5190 DATA A ZEBRA MUST HAVE STRIPES FOR THE 
PBI FILES 


Variables and Strings 

A§ - General input 

US$ - For messages 

M() - For used messages 

X$() - Correct order of letters 

L$()-Random order of letters L() - Used letters 

W - Number of letters and spaces per message (LEN) 

A - General counter 

I - General purpose, for letters 

WD - Counter, messages used 

X - Random select/placement of letters into L$(D 

Z$ - For placement of letters E,I and O into their proper locations 
T§ - Letters of message (coded) 

P - Placement of letters (input) at video PRINT@locations 
X$ - For user letter entries 

Q$ - User's input message 

CR - Counter, correct messages 

ML - Counter, missed letters 

SK - Messages skipped or incorrect 


Explanation of the Program Lines 


Line 20 clears 700 bits of memory for string storage (Q$). 

Lines 30-200 print the general instruction. 

Lines 210-220 dimension the variables and strings and 
initialize the counter for the messages used. 

Line 230 contains a GOSUB to line 4000 where the data list is 
read into the U§ array if this hasn’t already been done. A random 
message is selected and then deleted from the list so it will not be 
reselected. The return is made to line 230 where W$ is set to the 
contents of the W$(X) message, and W is set to the length of W$. 

Lines 240-290 sets the subscripted string, X$, to the 26 letters 
of the alphabet. 

Lines 300-360 select random letters from the alphabet, and 
places them within L$(A). 
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Lines 370-450 check the location of the letters E, I, and O and 
interchange them with the three correct letters if necessary. 

Lines 460-550 print the entire message in coded form. 

Lines 560-640 use the INKEY$ function for user entry of the 
letters. If X$ 1s not equal to null, the program branches to line 650. 

Line 650 tests the ASC value of X$ for a possible backspace 
entry. 

Line 660 prints the contents of X$ at location P. Location P is 
then advanced by one, and the count of the letters is increased by 
one (A). 

Line 670 checks the letter counter, A. If the value is greater 
than W, the entire message has been entered. 

Line 680 recycles back to INKEY$, if the message is not 
finished. 

Lines 690-730 backspace one letter if ASC(X$) = 8 and de- 
crease the location variable (P) and the counter (A) to match the 
backspace. 

Lines 750-770 accumulate the total message entered by user. 

Lines 900-1130 test for correct message entry. If the entry is 
correct the counter, CR, is advanced by one and another message 
will be selected (if any remain). If it is incorrect, the user will have 
the opportunity to try the same message or skip it and go to another 
one. 

Lines 1200-1300 print the final messages and terminates the 
program. 

Lines 4000-4100 were explained under line 230 above. 

Lines 5000-5190 are the correct messages. 


27 


WEE Ss VED 2 
ZZUSIV] 845 GI P 
BPR e GCREP 


POE 
as) ey 


MATH-A-CODE 

This program is similar to Words-Zit. Each problem you receive 
will have the numerals encoded as letters of the alphabet. Read all 
the instructions carefully before playing, noting exactly what letters 
represent the Os (zeros) in any answer. It will mean the difference 
between winning and losing ! 


Sample Run 
MATH-A-CODE 


THE INSTRUCTIONS? YES 


IN THESE MATH PROBLEMS YOU WILL MULTIPLY TWO 
NUMBERS, THEN ADD ANOTHER TO THE ANSWER— 
SIMPLE, BUT HAVE YOU TRIED IT LATELY USING LETTERS 
FROM THE ALPHABET? 

EACH LETTER FROM THE ALPHABET WILL REPRESENT A 
NUMBER FROM 1-9 AS YOU WILL SEE IN A SAMPLE. EACH 
NUMBER WILL ONLY BE USED ONCE IN EACH PROBLEM. 


PRESS ENTER? 

STUDY THIS SAMPLE: 

HDJ * FGC + BIE = EBFFAC. 

THE ANSWER IN THE ABOVE SAMPLE CONTAINS A 0 
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Zz 


START 


PRINT 
INSTRUCTIONS 


< 


y 


GET 
NUMBERS 1-9 


RANDOM SELECT 


PRINT PROBLEM 


INPUT QS 


PLACE 
TL$ TOGETHER 


QS = TLS 


HHH) 


HN 


POINT ADVANCE 


CLEAR VIDEO 


MESSAGE 


KK 


2 


Flowchart for 
Math a Code. 
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(ZERO). THIS IS REPRESENTED BY THE LETTER A ANY- 
HIME YOUR ANSWER CONTAINS A 0 (ZERO), IT WILL BE 
THE LETTER BEFORE THE FIRST LETTER IN THE SET; 1.E., 
IF THE FIRST LETTER IN ASET ISR, THE ZERO, IF NEEDED, 
WOULD BE THE LETTER Q. 

PRESS ENTER? 

REMEMBER, ALL LETTERS WILL REPRESENT THE NUM- 
ERALS 1-9 ONLY ONCE IN EACH PROBLEM. YOU WILL 
HAVE A SET OF 20 PROBLEMS TO COMPLETE ONCE YOU 
BREAK THE CODE, THINGS WILL GO QUITE SMOOTHLY 
PRESS ENTER TO BEGIN? 

HED*GCJ + BFI = ?7AEFGRT 

XSW+QUY + RVT = ?RETAEE 

SRL#PTN + MOQ = ?UJYTT 

MLK+JGI + NHF = ?M 


QTR#PSW + UOV = ?RETTCV 


VQU*ORP + TNS = ?DEAABC 
FGH#*LIJ + KDE = ?CXXVFG 
GHF*ECJ + DBI = ?GTTFD 
MJN*ILG + KHF = 2?HAACD 
FIL*JEH + DKG = ?RRTTG 
TON*PRS + QML = ?HAAES 
FEJ*GIB + CHD = ?2XXSZD 
NLK*MFG + IHJ = 2HTFED 
XUR#*SWT + YVQ = 2JHHASD 
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HJE*FCB + DGI = ?VERRA 
FDIeEHJ + GLK = ?7ACDDB 
STR*POV + UQW = ?WAZXD 


XSR#TYV + UWQ 


Hl 


?BGTTD 
PSN#RMK + LOQ = ?EFFAC 
CGH+IKE + JFD = 7ERRGH 


TOTAL POINTS FOR CORRECT 
ENTRIES ARE: 0 


YOU ARE READY TO TRY 
20 MORE PROBLEMS, RIGHT? NO 
NATURAL BORN QUITTER!!! 


All answers were missed on purpose so as to not reveal the 
code. 


Program Listing 


10 REM PROGRAM TITLE: MATH-A-CODE 

20 CLS: TP=0 

30 PRINT'MATH-A-CODE" 

40 INPUT"THE INSTRUCTIONS"; X$§ 

$0 IF X$="N" OR X$="NO" THEN 300 

60 PRINT" IN THESE MATH PROBLEMS" 

65 PRINT'YOU WILL MULTIPLY" 

70 PRINT"TWO NUMBERS, THEN ADD ANOTHER" 

75 PRINT"TO THE ANSWER--SIMPLE. BUT, HAVE" 
80 PRINT’ YOU TRIED IT LATELY USING LETTERS" 
85 PRINT" FROM THE ALPHABET?" 

90 PRINT"EACH LETTER FROM THE ALPHABET" 

95 PRINT"WILL REPRESENT A NUMBER FROM" 

100 PRINT"1-9, AS YOU WILL SEE IN A SAMPLE." 
105 PRINT" EACH NUMBER WILL ONLY BE USED" 
110 PRINT"ONCE IN EACH PROBLEM." 

115 PRINT 

120 INPUT" ENTER";X$:CLS 
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125 PRINT"STUDY THIS SAMPLE:" 

130 PRINT"HDJ * FGC + BIE = EBFFAC" 

135 PRINT"THE ANSWER IN THE ABOVE SAMPLE" 
140 PRINT’CONTAINS A 0 (ZERO). THIS IS" 
145 PRINT"REPRESENTED BY THE LETTER ‘A‘." 
150 PRINT" ANYTIME YOUR ANSWER CONTAINS" 
155 PRINT"A 0 (ZERO), IT WILL BE THE" 
160 PRINT"LETTER BEFORE THE FIRST LETTER" 
165 PRINT"IN THE SET; I.E., IF THE" 

170 PRINT"FIRST LETTER IN A SET I8 'R' 
175 PRINT"THE ZERO, IF NEEDED, WOULD" 
180 PRINT" SE THE LETTER ‘Q'." 

185 PRINT 

190 INPUT"PRESS ENTER"; X$:CLS 

195 PRINT"REMEMBER, ALL LETTERS WILL " 
200 REPRESENT THE NUMERALS 1-9" 

205 PRINT"ONLY ONCE (IN EACH PROBLEM) ." 
210 PRINT" YOU WILL HAVE A SET OF 20" 
215 PRINT" PROBLEMS TO COMPLETE IN" 

220 PRINT'CODED FORM. ONCE YOU BREAK" 
225 PRINT"THE CODE, THINGS WILL GO" 

230 PRINT"QUITE SMOOTHLY..." 

235 PRINT 

240 INPUT" PRESS ENTER TO BEGIN"; X& 

300 CLS: ¥=#65:J=0:' GET NUMBERS 1-9 

$10 FOR I=1 TO 9:NC(I)=I:NEXT 

320 Ist 

330 N=RND(9) 

340 IF N(N)=0 THEN 330 

350 ACIJ=EN: NON) =O:LCI)=1 

360 I=I+1 

370 IF I=10 THEN 390 

380 GOTO 330 

390 ‘ PROBLEM (LETTER FORM) 

900 FOR IT=1 TO 3:A$=AS+STRS CACTI?) 

410 GOSUB 470:NEXT: PRINT" * "; 

9420 FOR [=4 TO 6:A1S=A1L$+STRSCACTI)) 

430 GOSUB 470:NEXT: PRINT" + "; 

9440 FOR I=? TO 9:AZ$=A2$4STRSCACT)) 

450 GOSUB 470:NEXT: PRINT” = "; 

960 GOTO 500 

470 PRINT CHRS(ACI)4+Y); 

480 RETURN 

500 ‘ USER ENTRY 

510 INPUT Q5§ 

$20 * TOTAL 

530 T=VALCAS)*VALCAIL$)+VALCA2$) 

$40 TS=STRS(T) 
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550 ' TOTAL TO STRING 
560 FOR I=2 TO LEN(TS) 

570 TL$=TL$+CHR$(VAL(MID$(T$,1,1))+Y) 
580 NEXT 

590 ' COMPARE 

600 IF Q$<>TL$ THEN 620 

610 PI=PI+INT(T/100):' POINTS 

620 TP=TP+1:' TOTAL PLAYS 

630 JaJ+1:1F TP=20 THEN 800 

640 AS="":ALS=a"":A2$=0" 

650 Té="":TL$s"" 

660 Y=RND(80> 

670 IF ¥(=64 THEN 660 

680 PRINT 

690 IF J=? THEN 300 

700 GOTO 310 

800 ' MESSAGE / FINAL 


810 CLS 

820 PRINT“TOTAL POINTS FOR CORRECT" 
830 PRINT"ENTRIES ARE: ";PI 

840 PRINT 


850 PRINT“ YOU ARE READY TO TRY" 

660 PRINT'20 MORE PROBLEMS, RIGHT"; 
870 INPUT X5§ 

680 IF X$="N" OR X$="NO" THEN 900 
890 TP=0:J=7:GOTO 640 

900 PRINT 

910 PRINT"NATURAL BORN QUITTER !!!" 
920 END 


Variable and Strings 

TP - General counter, total problems 

X$ - General input string 

Y - ASCII contents, for coding 

J - Simple counter for clearing of video, when the number of prob- 
lems reaches 7 

N() - Numerals 1-9 for coding 

A() - Random value as above for coding 

AG, A1$,A2$ - STR$ contents of code for totals 

Q$ - User input of answer in letter form 

T - The total value of Al, A1$, and A2$ 

TS - STR$ of T (above) 

TL$ - For total in letter (code) form 

PI - Point total 
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Explanation of the Program Lines 

Line 20 initializes the variabie TF for ihe count of the iotal 
problems. 

Lines 30-240 display the instructions for play. 

Line 300 initializes the variables Y and J. 

Lines 310-380 set the subscripted variable N(I) to the numer- 
als 1-9; then selects the numerals 1-9 in a random fashion and places 
them in subscripted variable A(D, and finally deletes the number 
selected. 

Lines 390-480 print the problem in its coded form. 

Lines 500-510 allow the user to input the answer in letter form. 

Lines 520-580 put together the answer in coded letter form. 
This is done after the user has entered his or her answer so no 
cheating can take place. 

Lines 590-600 compare answers. 

Line 610 increases the score if the answer is correct. 

Line 620 advances problem counter by one. 

Line 630 increases the problem count by one. If J 1s equal to 7, 
the video is cleared (line 690). If TP is equal to 20 the program 
branches to final message. 

Lines 640-700 sets the strings to null, and get another amount 
for Y, and then recycle back for another problem. 

Lines 800-920 print the total points accumulated and ask if the 
user wants another set. If he does not, the program is terminated. If 
he does, variables J and TP are initialized and the program recycles 
to the beginning. 
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AA oy SI] 
BEBP BEBP 
U7)" © BEEP 


Ae IPI 


Have you ever seen so many code programs? Using the sound 
routine, the computer will select three digits from the numerals 
1-9. The computer will then beep each digit. Each tone will repre- 
sent a specified digit. You will enter your guess of the 3 digits using 
the INKEY$ function. The computer will beep each of your guesses 
as you press the numeral key. Match the tones and you’ve got the 
code, but watch out, you'll only have a certain amount of time before 
computer changes one of the digits! Remember to use the proper 
value for MC in line 370. Refer to page 3. 


Sample Run 


:: MASTER CODE :: 
INSTRUCTIONS? YES 


READ THE INTRODUCTORY PARAGRAPH 
IN THE BOOK. REMEMBER THAT THE 
COMPUTER WILL HOLD A MASTER 
CODE FOR ONLY SHORT PERIODS OF 
TIME AND THEN CHANGE ONE DIGIT 

OF IT. AFTER A LENGTH OF TIME, IF 
YOU DO NOT BREAK THE CODE, 

YOU'LL BE OUT OF THE GAME. 

LISTEN FOR THE THREE BEEPS: 

THESE WILL BE YOUR CLUE TO 
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PRINT 
INSTRUCTIONS 


NUMBER OF 
PLAYERS 


SELECT THREE 
OIGITS—BEEP 


USER CODE 
INPUT. 


PRINT VAL(CS) 


COMPARE- 
CORRECT 


MESSAGE 


cco=CC+1 


Flowchart for Master Code. 
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GET ANOTHER 
PLAYER 


FINAL 
MESSAGE 


THE MASTER CODE. NUMBERS IN 
THE CODE ARE 1-9 (3 DIGITS). 


NUMBER TO PLAY? 2 


FIRST NAMES OR INITIALS 
OF THESE 2 PLAYERS? E-F. 
G.T. 


E.F. 


WILL PLAY NOW, LISTEN 


TO THE THREE TONES. 


Program Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


REM PROGRAM TITLE: MASTER CODE 
CLS 
PRINT":: MASTER CODE ::" 
RANDOM 
INPUT" INSTRUCTIONS"; X%$ 
IF X$<>"YVES" THEN 250 
PRINT 
PRINT" READ THE INTRODUCTORY PARAGRAPH" 
PRINT" IN THE BOOK. REMEMBER THAT THE" 
PRINT"COMPUTER WILL HOLD A MASTER" 
PRINT“ CODE FOR ONLY SHORT PERIODS OF" 
PRINT"TIME AND THEN CHANGE ONE DIGIT" 
PRINT"OF IT. AFTER A LENGTH OF TIME," 
PRINT" IF YOU DO NOT BREAK IT, YOU'LL" 
PRINT" BE OUT OF THE GAME." 
PRINT"LISTEN FOR THE THREE BEEPS," 
PRINT" THESE WILL BE YOUR CLUE TO" 
PRINT"THE MASTER CODE. NUMBERS IN" 
PRINT" THE CODE ARE 1-9 (3 DIGITS)." 
INPUT'NUMBER TO PLAY (1~-4)";PA 
IF PA<1 OR PA>4 THEN 250 
PRINT" FIRST NAMES OR INITIALS" 
PRINT"OF THESE"; PA; "PLAYERS"; 
FOR IT=1 TO PA: INPUT NS$(I) 
NEXT 
V=1 
N$=N$(V): PRINT 
PRINT N$&;"% WILL PLAY NOW. LISTEN* 
PRINT"TO THE THREE TONES." 
REM NUMBERS IN CODE 
REM LOCATION FOR BEEPS 
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370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
910 
520 
330 
540 
550 
560 
$70 
380 
600 
610 
620 
630 
640 
650 
660 
670 
680 


690 
700 


710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
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N=3:MC=31266 

REM TOTAL NUMBERS IN SET 

FOR I=1 TO 9:NCI)=sI:NEXT 

FOR X=1 TO 1500:NEXT:REM GET CODE 
KX=1:P=95:PL=102:D=0 
A=INTCRND(0)*9)41 

IF NCAd}=0 THEN 420 

ACK) =A:N(A)=0:POKE MC,A*A+140 
U=USR(0):X=X+1l 

IF X>N THEN CLS:GOTO 480 
GOTO 420 

M=0:T=0:REM BEGIN TIME 
L=64:G=0:IF M=1 THEN $510 
PRINT@O,"THE CODE ?",; 
CS$=INKEYS 

T=T+1:TMsINT(T/20) 
PRINT@15,"TIME: ";TM; 

IF cCs="" THEN 600 
H=VAL(C$):POKE MC,H*H+140 
U=USR(0):PRINT@L,H; :LeL+2 
G=G+1:H(G)=sH: IF G=N THEN 620 
REM TOTAL TIME 

IF TM<>10 THEN 510 

GOTO 720 

REM COMPARE 

FOR W=1 TO N 


IF HCW) <>ACW) THEN 670 
NEXT 

GOTO 1000 

PRINT@L+64-N*2," INCORRECT", 


FOR KX=1 TO 500:NEXT: T=T+6 
PRINT@L+64-N*2,5TRING$ (9,92); 
PRINT@L-~N*2,STRINGS (N*2,32); 
GOSUB 820:M=1:GOTO 490 
PRINT@21,"*% EXPIRED *"; 

REM CHANGE RANDOM NUMBERS 
Y=RND(N) 

EX=EX+1:1F EX=7 THEN 950 
A=INTCRND(0)*%9)41 

IF N(CA)=0 THEN 760 

ACY =A:N(CA)=0:POKE MC,A*A+140 
U=USR(0):GOSUB 1160 
PRINT@21,STRING$(11,32); 
PRINT@L-N*2,STRINGS (N¥Z,32);:GOTO 
REM ATTEMPTED SEQUENCES 

IF M=0 THEN 850 

GOTO 860 

PRINT@35,"ATTEMPTED SEQUENCES: "; 
FOR W=1 TO N: PRINT@P,H(W); 


480 


870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
190590 
1060 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1290 
1300 
1310 
1320 
1330 
1340 
1400 
1410 
1420 
1430 
1440 
1450 


P=P+2:NEXT 

P=P-N*2+64 

IF P>=999 THEN 910 
RETURN 

PePL 

PL=PL4+N¥*241 

D=D+1:IF D=4 THEN 950 
GOTO 900 

REM TIME EXPIRED (TOTAL) 
PRINT: IF D=4 GOSUB 1100 


PRINT" YOUR TOTAL TIME HAS EXPIRED, ";N5 


PRINT"TOTAL CODES BROKEN =";CC 
GOTO 1200 

REM CODE BROKEN 

PRINT 

PRINT" YOU'VE BROKEN THE MASTER CODE 
PRINT" FANTASTIC, “;N$;"!! NOW TRY" 
PRINT"A NEW CODE..." 

cC=CC+1 

FOR X=1 TO 1000:NEXT 

GOTO 350 

REM PRINT 

FOR X=1 TO 15 

PRINT 

NEXT 

PRINT@O, ; 

RETURN 

PRINT@L+135-N*2,"i DIGIT CHANGED"; 
FOR X=1 TO 900:NEXT 
PRINT@L+135-N*2,STRINGS (16,32); 
RETURN 

REM ANOTHER 

Q(V)=CC:CC=0:GOSUB 1300 
V=V+1i:EX=0 

IF V>PA THEN 1400 

FOR X=1 TO 1200:NEXT 

GOTO 320 

REM BEEPS (FINAL) 

FOR X=1 TO 20 

POKE MC,A(1)*A(1)+RND(200) 
U=USR(0):NEXT 

RETURN 

PRINT 

PRINT"ALL HAVE PLAYED; SCORES" 
PRINT"ARE AS FOLLOWS: " 

FOR I=1 TO PA 

PRINT N$C(1I);"'S SCORE"; Q(T); 
PRINT"CODES BROKEN..." 
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1460 NEXT 


ei A ieed 


2AM 
fo en ee eho 2} es 


1480 PRINT"END OF MASTER CODE" 
1490 END 


Variables and Strings 

PA - Number of players (1-4) 

N$(D - Names of players 

V - Counter for (total) number of players, PA 
N§ - (Name of player) contents of N$(V) 

N - Total numbers in code 

MC - Location of machine language program (sound) 
N(I) - Numerals 1-9 for code 

X -Counter, general purpose time loop 

P & PL - Print @ locations for user’s code entry 
D - Counter, general purpose 

A - Random number select 

A(X) - Numbers in code (1-3) 

U - USR call for machine language routine 

M - General purpose 0/1 variable for print statements 
T - Time counter 

TM - Total time: INT of T divided by 20 

L - Print @ location for messages 

G - user entry, counter of digits entered 

H - Value of C$ (user entry) 

H(G) - Digits selected (user entry) 

W - for the comparison of digits 

Y - selection (random) of a digit to be replaced 
EX - for termination of program, all digits used 
CC ~ Correct entered codes 

Q(V) - Total correct codes, current user (player) 


Explanation of the Program Lines 

Lines 50-190 display the general instructions. 

Lines 250-260 allow the user to input the number of players. 

Lines 270-300 allow the input of the first name or initials of 
each player. 

Lines 310-340 display a message that indicates who is playing. 

Line 370 sets the variable that indicates the total number of 
digits to three, and set MC to the location that will be poked for 
sound. 

Line 390 assigns the numerals 1 through 9 to the N(D array. 
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Lines 410-470 get the three digits, and then sound a different 
tone for each. 

Lines 480-490 initialize more variables. 

Lines 500-600 let the user enter his or her selection of digits, 
output a tone for each selection, and test the amount of time 
remaining. 

Line 610 branches to line 720, if TM is equal to 10. 

Lines 620-650 compare each digit entered against digits 
selected in memory. Line 660 branches to 1000 if all are correct. 

Lines 670-710 present the message if the response was incor- 
rect. 

Lines 720-810 delete one digit and select another, beep its 
code tone, and then it returns to line 480, if EX is not equal to 7 
(which means all digits have been used). 

Lines 820-940 print all three digits the user has entered that 
did not work. They also advance or reset the PRINT @ areas for 
these codes. 

Lines 950-990 display the message indicating that time has 
expired. 

Lines 1000-1070 display the message indicating that the code 
has been broken, advance the counter CC (codes broken) by 1, and 
then return to get another code if variable EX is not yet equal to 7. 

Line 1100-1150 clear the video with print statements (blanks) 
in preparation for the termination of program. 

Line 1160-1190 display the message indicating that one of the 
three digits changed. 

Lines 1200-1250 advance the next player, if all have not yet 
played (V<PA) 

Lines 1300-1340 sound random beep tones that indicate the 
end of the program. 

Lines 1400-1490 display the total scores for all players. 


A 


=) 


| 
=| 
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DRIVER’S TEST 


Are you a good driver? Can you stay in your own lane or have 
enough sense to pass safely ? Up to 10 people can try their ability at 
the wheel without leaving the house. Of course, the steering wheel 
will consist of the left and right arrow keys. Watch out for head-on 
collisions, which occur rapidly, almost without warning. The test 
will conclude after a determined amount of time ..... or before. 


Sample Run 


HOW MANY DRIVERS? 2. 
FIRST NAMES 

? ARNOLD 

WALT 


THANK YOU... 
DO ANY OF YOU NEED THE 
INSTRUCTIONS FOR DRIVERS TEST? YES 


YOU WILL TAKE THE DRIVERS SEAT 
IN AN ATTEMPT TO COME OUT ALIVE. 
YOU WILL BE TRAVELLING DOWN A 
ROAD, THAT WILL BE 

STRAIGHT OR WINDING, YOU WILL 
BE TESTED FOR HOW WELL YOU CAN 
STAY IN YOUR OWN LANE: MEANING, 
DON’T HIT THE SHOULDER OR THE 
CENTER MEDIAN (UNLESS PASSING). 
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START 


NUMBER OF 
ORIVERS 


ORIVERS’ 
NAMES 


INITIALIZE 
VARIABLES- 


PRINT 
INSTRUCTIONS 


SET LANES 
BEGIN TEST 


CAR LEFT 


CAR RIGHT 


POINTS PER 
COLLISION 


N 
CONTINUE 
TEST 


Flowchart for Driver's Test. 


FINAL, 
MESSAGE 
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PRESS ENTER? 


WHEN A CAR COMES UP IN FRONT OF 
YOU, YOU MUST PASS, TO DO THIS 
PRESS AND HOLD THE RIGHT ARROW 
KEY. AFTER PASSING QUICKLY MOVE 
BACK TO YOUR LANE BY PRESSING 
AND HOLDING THE LEFT ARROW 

KEY. THESE KEYS ARE ALSO USED TO 
KEEP YOUR CAR STEADY IN YOUR 
LANE. IF YOU ARE PASSING AND 
ANOTHER CAR IS ALREADY IN THE 
PASSING LANE...TAKE TO THE 
DITCH!!! 

A PERFECT SCORE IS 0 (ZERO) 
MISTAKES OR ERRORS. 

ARNOLD WILL. NOW TAKE THE WHEEL 
PRESS ENTER WHEN READY 


la 

ee 

bs 4 

I 6 
zl 
aE 
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Program Listing 


10 

20 

30 

40 

30 

60 

70 

80 

90 

100 
105 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
4910 
420 
930 
440 


REM PROGRAM TITLE: DRIVERS TEST 
CLS 
RANDOM 
INPUT"HOW MANY DRIVERS";D 
IF D<i OR Dd10 THEN 40 
PRINT"FIRST NAMES" 
FOR I=1i TO D: INPUT Q$(1T) 
NEXT: PRINT: YP=1 
PRINT" THANK YOU..." 
PRINT: M=0:WL=0: PA=0:TR=0:CA=0 
IF ¥P>=2 THEN 430 
PRINT'DO ANY OF YOU NEED THE" 


PRINT" INSTRUCTIONS FOR DRIVERS TEST"; 
INPUT I§ 

IF IS="N" OR I$="NO" OR I[$="" THEN 420 
CLS 


PRINT" YOU WILL TAKE THE DRIVERS SEAT" 
PRINT" IN AN ATTEMPT TO COME OUT ALIVE." 
PRINT" YOU WILL BE TRAVELLING DOWN A" 
PRINT"ROAD THAT WILL BE" 
PRINT"STRAIGHT OR WINDING. YOU WILL" 
PRINT'BE TESTED FOR HOW WELL YOU CAN" 
PRINT"STAY IN YOUR OWN LANE; MEANING," 
PRINT"DON'T HIT THE SHOULDER OR THE" 
PRINT"CENTER MEDIAN (UNLESS PASSING)." 
PRINT 

INPUT" KEY ENTER"; X 

CLS 

PRINT'WHEN A CAR COMES UP IN FRONT OF" 
PRINT’ YOU, YOU MUST PASS. TO DO THIS" 
PRINT" PRESS AND HOLD THE (RIGHT ARROW)" 
PRINT" KEY. AFTER PASSING QUICKLY MOVE" 
PRINT" BACK TO YOUR LANE BY PRESSING" 
PRINT"AND HOLDING THE <LEFT ARROW)" 
PRINT"KEY. THESE KEYS ARE ALSO USED TO" 
PRINT"KEEP YOUR CAR STEADY, IN YOUR" 
PRINT"'LANE. IF YOU ARE PASSING AND" 
PRINT" ANOTHER CAR IS ALREADY IN THE" 
PRINT" PASSING LANE...TAKE TO THE" 
PRINT"DITCH ! 1/1" 

PRINT"A PERFECT SCORE IS 0 (ZERO)" 
PRINT"MISTAKES OR ERRORS." 

PRINT Q@$(1);" WILL NOW TAKE THE WHEEL" 
PRINT" PRESS ENTER WHEN READY"; 

INPUT X 


430 CLS 

SO REM TUM LANES ¢ MENDTAN 

510 Ri=30:R2=44:C3SR1+3 :M1l=((R2-R1)/2)+4+R1 
320 REM STRAIGHT OR CURVE / CAR 
$30 M3=Mi:GOTO 700 

$40 C=RND(2):Ci=RND(2) :M=((R2-R1)/2)+R1 
§50 PRINT@C5S,"*:1:";:1F ABS(C-Ci)=0 THEN 580 
360 REM STRAIGHT 

370 TR=TR+1:GOTO 700 

$80 REM LEFT OR RIGHT CURVES 

390 C2=RND(2> 

600 IF ABS(C1-C2)=1 THEN 650 

610 REM LEFT 

620 IF ABS(R1-M1)>=19 THEN 670 

630 Ri=Ri-1:R2=R2-1:M=M-1 

640 GOTO 700 

650 REM RIGHT 

660 IF ABS(R2-M1)>=19 THEN 630 

670 Ri=R1i+1:R2=R2+1:M=M+1 

680 REM LANE AND A CAR 

700 REM USER CAR MOVEMENT 

710 Q=PEEK(15340) 

720 IF Ri>=960 OR R2>=960 THEN 740 
730 Ri=R1+64:R2=2°R24+64:M1l=Mi+64 

740 PRINT@RI,"!"; :PRINT@CS,":0:"; 
7530 PRINT@M, "I"; >: PRINT@R2Z,"!"; 

795 IF PA=3 THEN CA=CA-64 

756 IPF CL=1 THEN CC=CC-64 

757 IF ABS(CA~C$)¢=3 THEN 1160 

760 IF M=0 PRINT@M," nar 

770 IF Q@=32 THEN 810 

780 IF Q@=64 THEN 830 

790 PRINT: IF TR)>=225 THEN 970 

792 IF ABS(CC+64-C5)¢=3 THEN 1220 
795 IF PAC)3 AND C5)>M3 AND Q<>32 THEN 870 
800 GOTO 9300 

810 REM CAR LEFT 

812 IF CS¢=0 THEN ZT=1:GOTO 1220 
815 IF PA=3 THEN C5=C5-2:GOTO 790 
820 C3=sC5~1:GOTO 790 

830 REM CAR RIGHT 

832 IF C5>=62 THEN ZT=1:GOTO 1220 
835 IF PA=3 THEN C5=C5+2:GOTO 850 
840 CS=2C5+1 

8350 IF PA<>)3 AND CS5S>M3+2 THEN 870 
860 GOTO 790 

870 REM STAYING IN WRONG LANE 

880 WL=WL+1:GOTO 1000 


46 


900 
910 
920 
925 
930 
935 
940 
950 
960 
970 
980 
1000 
1001 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1330 
1340 
1350 
1360 
1370 


Q1l=PEEK(C5+15360+64) 
Q2=PEEK(C5+15360+66>) 

IF Q@i¢>32 AND Q(>32 THEN 940 
IF @2¢4¢)932 AND G(>32 THEN 940 
IF ABS(M3-C5S)>=14 THEN 960 
GOTO 1000 

IF PA=3 THEN 1160 
REM WRONG LANE / SHOULDER 
WL=WL+1:GOTO 1000 
PRINT@O, “DRIVING TEST COMPLETED..." 
GOTO 1460 

REM CAR TO PASS 

IF PA=3 THEN 1040 

PA=RND(20) 

IF PA<)1 THEN 1330 

PA=PA+2 

IF Ri¢=860 THEN PA=0:GOTO 540 

IF CA>=100 THEN 1070 

IF CP=0 THEN CA=M-6 


IF CP=1 THEN 1110 
PRINT@CA,": <1 2" 5 
CP=1 

GOTO 540 


REM CLEAR IF LESS THAN USER CAR 

IF CA¢=0 THEN 1140 

GOTO 340 

PA=0:CP=0:CL=0 

GOTO 1190 

REM HEAD-ON ? 

IF ABS(CA-C5)¢=4 THEN 1220 

IF ABS(CA+1-C5)¢=3 THEN 1220 

IF PA+CP<()>4 AND C5<Ri-942 THEN 960 
IF PA+CP<(>4 AND C5>R2-962 THEN 960 
GOTO 540 

X=1:WL=-99 

PRINT@CS,"*"; :PRINT@CS+2,°% "5 
PRINT@C5+64-1,"%%"; >: PRINT@C5+644+4,"%";5 
FOR VU=1 TO $0:NEXT 


PRINT@CS," ")>PRINT@C5+644+1,"°%"; 
PRINT@CS+64-3," oar 

FOR U=i TO 25 :NEXT 

X=X+1 

IF X>=11 THEN 1400 

GOTO 1230 


REM CAR IN OPPOSITE LANE 

TF M¢(896 OR PA()10 AND PA<C>15 THEN 540 
IF CL=1 THEN 540 

CL=1:CC=M+2 

PRINT@M+2 ,":-~:"; 


47 


1380 GOTO 540 

1400 REM FINISHED / DEGRADED 

1410 PRINT@O,; 

1420 PRINT"YOU HAVE BECOME ANOTHER" 
1430 PRINT"HIGHWAY STATISTIC." 

1435 IF ZT=1 THEN ZT=0:GOTO 1460 
1440 PRINT'"MOVE TO THE PASSING LANE" 
1450 PRINT“A LITTLE SOONER... .NEXT TIME." 
1460 UPCYP)=WL:YP=YP+1 

1470 IF YP>D THEN 1520 

1480 PRINT 

1490 PRINT Q$(YP);" WILL NOW TAKE THE" 
1500 PRINT'WHEEL, GOOD LUCK !1!!I" 
1510 CP=<0:CL=0:CC=#0:GOTO 100 

1520 FOR Tei TO 2000:NEXKT: CLS 

1530 PRINT"END OF DRIVING TEST." 
1540 PRINT" TOTAL NUMBERS OF ERRORS" 
1550 PRINT'ARE AS FOLLOWS: " 

1560 FOR I=1 TO D 

1570 IF UP(1)=«=-99 THEN 1620 

1580 PRINT @§¢(1I)0;" HAD"; UPCI); 

1590 PRINT'TOTAL ERRORS." 

1600 NEXT: 

1610 GOTO 1640 

1620 PRINT @$(1I);" IS DECEASED..." 
1630 GOTO 1600 

1640 PRINT 

1650 PRINT"END OF DRIVERS TEST." 
1660 END 


Variables and Strings 


D - Number of drivers 

Q$(I) - First names of the D drivers 

YP - Players advance (counter) 

WL - Counter, staying in wrong lane 

PA - For use with alternate car 

CA - Alternate car 

R1 - Left side of lane 

R2 - Right side of lane 

Q1 & Q2 - Test for collisions 

C5 - User’s car location 

M & M1 & M3 - Center lane (median) 

C & Cl - Determine if straight or curved lanes will be used 

TR - Length of driving test, terminates when TR is greater than or 
equal to 225 

C2 - Left or right curve 
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Q - User’s key closure 

CL - Car already in opposite lane 

CC - Alternate car location 

UP(YP) - Current player’s score, UP(YP) = — 99 denotes that 
player is deceased (had head-on collision) 


Explanation of the Program Lines 


Lines 10-450 determine the number of drivers, initialize sev- 
eral of the variables, and display the general instructions. 

Lines 500-670 set the variables for lane location and left or 
right curves. 

Lines 689-750 test for user’s car movement and print the two 
lanes down the video screen. 

Lines 755-757 print the other car and checks for a pass or a 
collision. 

Line 760 clears the center median. 

Lines 770-780 branch to the appropriate lines for the user’s left 
or right driving movements. 

Line 790 includes a print statement that keeps the lanes jump- 
ing to simulate car movement and tests for a completed drivers test 
by determining whether or not TR is greater than or equal to 225. 

Line 792 checks for a collision. 

Line 795 tests the user’s car in case he or she is staying in 
wrong lane. 

Lines 810-820 manipulate the variables to move the user’s car 
to the left. 

Lines 830-860 manipulate the variables to move the user’s car 
to the right. 

Lines 870-960 increase the counter for the user staying in the 
wrong lane and also test for collisions with the other car. 

Lines 970-980 display the message that the test is over. 

Lines 1000-1100 will print another car at bottom of video if the 
arguments are met, and there is not already another car at that 
location. 

Lines 1110-1150 clear the appropriate variables of the other 
car if the location of that car is less than the present location of the 
user's Car. 

Lines 1160-1310 test for a head-on collision with the other car, 
demolish bothif conditions are met, and branch to a message to go to 
the next driver. 

Lines 1330-1380 print a car in the opposite lane (the third car). 

Lines 1400-1660 advance to the next driver (player), print all 
scores, and terminate the program if conditions are met. 
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SCHEanINEE 
7SLWales US 


SHORAAR UA 
WE, BU 


BBUAwAES 
ceaTaecute a7 


WHAT IS IT? 


You just might be saying ‘‘What is it” to yourself after com- 
pleting the game! The computer will give you five different clues to 
a selected word. Your score will be determined by how many 
guesses it takes you to figure out the word. Up to four people can 
beat their brains out with this one. 


Sample Run 

---WHAT IS IT?--- 

YOU WILL HAVE UP TO FIVE 

CLUES TO HELP YOU FIGURE OUT WHAT WORD THE 
COMPUTER HAS STORED IN ITS 
MEMORY. THE PLAYERS CAN TAKE 

AS MANY GUESSES AS THEY WISH, 

BUT THE MORE GUESSES IT TAKES 
YOU, THE LESS YOU'LL WIN. 

YOUR SCORE FOR EACH WORD STARTS 
AT 50; THEN 10 POINTS ARE DEDUCTED 
FOR EACH NEW CLUE. 

EACH ITEM CONTAINS 

ONLY ONE WORD; |.E. ‘A SWORD’ 
WOULD JUST BE INPUT AS 

‘SWORD’... 
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NUMBER TO PLAY? 2 

FIRST NAMES OF THESE 2 PLAYERS, PLEASE 
?FRED 

2YIZZY 


FRED WILL PLAY..... 


FRED THIS IS CLUE NUMBER 1 
TO DESTROY 
WHAT IS THE WORD? GET RID OF 


FRED THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? TAKEAWAY 


FRED THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? RUIN 


FRED THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? ERASE 


FRED THIS IS CLUE NUMBER 5 
ERASED 

WHAT IS THE WORD? DESTROY 
SORRY, FRED THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 


YIZZY THIS IS CLUE NUMBER 1 
TO USE IS TO PAY 
WHAT IS THE WORD? RESTROOM 


YIZZY THIS IS CLUE NUMBER 2 
GOES ALMOST EVERYWHERE 
WHAT IS THE WORD? CAR 


YIZZY THIS 1S CLUE NUMBER 3 
LOTS OF NOISE 
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WHAT IS THE WORD? KIDS 


YIZZY THIS IS CLUE NUMBER 4 
TERRIFIC SPEED 
WHAT IS THE WORD? RUNNER 


YIZZY THIS IS CLUE NUMBER 5 
SST IS ONE 
WHAT IS THE WORD? JET 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


FRED WILL PLAY..... 


FRED THIS IS CLUE NUMBER 1 
STRIPES OR SOLID 
WHAT IS THE WORD? ARMY. 


FRED THIS IS CLUE NUMBER 2 
LARGE IS BETTER 
WHAT IS THE WORD? CAR 


FRED THIS IS CLUE NUMBER 3 
EATEN IN WARM WEATHER 
WHAT IS THE WORD? ERUIT 


FRED THIS IS CLUE NUMBER 4 
BETTER ICE COLD 
WHAT IS THE WORD? BEER 


FRED THIS IS CLUE NUMBER 5 
BUST IF DROPPED 

WHAT IS THE WORD? BOTTLE 
SORRY, FRED THAT WAS 5 


CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 
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START 


INSTRUCTIONS 


PLAYERS 
AND 
NAMES. 


READ DATA 
GET RANDOM 


WORD 


PRINT PLAYER 


PRINT CLUE 
i 
; 


GET ANOTHER 
CLUE 


? 


¥ 


POINTS FOR 
PLAYER 
DELETE WORD 


ALL FIVE 
CLUES USED 


Or 


N 
ADVANCE TO 
NEXT PLAYER 


Flowchart for What Is it? 


FINAL PLAYERS 
SCORES 
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YIZZY THIS IS CLUE NUMBER 1 
TO DESTROY 


WHAT IS THE WORD? BEAT 


YIZZY THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS 1S CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? FLUSH 


YIZZY THIS IS CLUE NUMBER 5 
ERASED 
WHAT IS THE WORD? PENCIL 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


STOP 


This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHAT IS IT? 

20 CLEAR 1000 

30 RANDOM: CLS 

40 DIM W$(16),A8(80),R(16) 

$0 PRINT"--~- WHAT IS IT? ~-~-" 

60 FOR T=1 TO 1200:NEXT 

70 PRINT"'YOU WILL HAVE UP TO FIVE" 

60 PRINT'CLUES TO HELP YOU FIGURE OUT WHAT 
WORD THE" 

QO PRINT"COMPUTER HAS STORED WITHIN IT'S" 

OQ PRINT'MEMORY THE PLAYER CAN TAKE" 

: PRINT'AS MANY GUESSES AS THEY WISH," 

0 

0 


PRINT" BUT, THE MORE ea IT TAKES" 
PRINT" YOU, THE LESS ‘LL 


PRINT*'WIN.YOUR SCORE ee 


150 
1690 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
z80 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
9440 
450 
960 
470 
480 
490 
$00 
$10 
320 
930 
540 
$45 
530 
560 
570 
980 
590 
600 
610 


PRINT'AT 50.10 POINTS ARE DEDUCTED" 
PRINT" FOR EACH NEW CLUE." 

PRINT“ EACH ITEM CONTAINS" 
PRINT"ONLY ONE WORD, I.E. ‘A SWORD'" 
PRINT"WOULD JUST BE INPUT AS" 
PRINT" 'SWORD'...." 

FOR T=1 TO 10000:NEXT:CLS 
INPUT'NUMBER TO PLAY (1-4)";AM 

IF AM¢1 OR AM)4 THEN PRINT:GOTO 220 
PRINT"FIRST NAMES OF THESE";AM; 
PRINT" PLAYERS, PLEASE" 

FOR I=1 TO AM 

INPUT X$(1):NEXT 

T=1:U=1 

X$=xX$C(1):PRINT X$;" WILL PLAY..... “ 
PRINT: IF U)=2 OR UU‘)0 THEN 340 
C=1:FOR A=1 TO 16:READ WS8¢A) 

RCA) sA:NEXT 

FOR A=1 TO 80:READ A$(A):NEXT 

REM GET ONE RANDOM WORD 

REM IF NOT DONE 

R=RND(16> 

IF R(R)=0 THEN 360 

WS=W$ (CR): Je&R*5-4:JJed+4:TP=50 
PRINTX$;" THIS IS CLUE NUMBER";C 
A$=A$(J):PRINT A$:REM A$(J) FOR CLUE 
INPUT"WHAT IS THE WORD" ;WW5 

IF wWw$¢>W$ THEN 440 

R(R)=0:GOTO 560 

IF J=JJ THEN 470 
TP=TP-~10:J2J41:C=C€C+4+i 

PRINT:GOTO 390 

PRINT: TP=0 

PRINT“SORRY, ";X$;" THAT WAS";C 
PRINT“CLUES AND YOU DID NOT" 
PRINT"ENTER THE RIGHT WORD." 

IF AM=1 THEN 540 

T=I41 

IF I>AM THEN I=1 

GC=1:UsU+1:IF U)=17 THEN 800 

IF G=1 AND U)UU THEN 600 

FOR T=1 TO 1500:NEXT:CLS:GOTO 290 
TP(I)=TP(1)4+TP: PRINT 

PRINT'THAT IS THE WORD "“;X$ 

PRINT" YOU NOW HAVE";TP(1); "POINTS." 
GOTO 510 

REM ALL USED 

FOR T=1 TO 2000:NEXT 


55 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
800 
810 
820 
830 
840 
850 
860 
870 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1205 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
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CLs 

PRINT‘ aLi WORDS in Tre DATA LiST.” 
PRINT"HAVE BEEN USED.TOTAL SCORES" 
PRINT" FOR THE PLAYER ARE: " 

FOR [=i TO AM 

PRINT" POINTS FOR ";X$C(1);" ARE: "; 
PRINT TPC(I) 

NEXT 

PRINT 

PRINT" END OF GAME RUN." 

END 

REM TEST FOR ALL USED 

G=1 

U=0:FOR T=1 TO 164 

IF RCT)<90 THEN U=U+1 

NEXT 

IF U=s0 THEN 4600 

REM MORE REMAIN 

YUeU:Ue1:GOTO 350 

REM WORD DATA 

DATA GEAR,WATERMELON, MONEY, OBLITERATE 
DATA YEAR,FOOD, AIRLINER, THREAD 

DATA TRAIN, QCEAN, PAPER, PARTY 

DATA BOX, CENTER, SNAKE, DOOR 

REM DATA CLUES 

DATA HAS TEETH, DIFFERENT USES 

DATA ROUND,MADE OF DIFFERENT MATERAL 
DATA IN TOYS OR MACHINES 

DATA STRIPES OR SOLID, LARGE 15 BETTER 
DATA EATEN IN WARM WEATHER 

DATA BETTER ICE COLD,BUST IF DROPPED 
DATA ALL NEED IT,EXCHANGES HANDS 
DATA MANY USES,MADE IN ALL COUNTRIES 
DATA YOU CAN'T TAKE IT WITH YOU 

DATA TO DESTROY,REMOVE,WEAR AWAY 
DATA CAUSE TO DISAPPEAR, ERASED 

DATA CAN LEAP,CONTAINS 12 THINGS 
DATA HAS MORE DAYS THAN ABOVE 

DATA CELEBRATED AT FIRST 

DATA STARTS WITH MONTH ONE 

DATA YOU NEED IT,THOUSANDS OF VARITIES 
DATA TOO MUCH MAKES YOU SICK 

DATA MADE IN DIFFERENT WAYS 

DATA MOSTLY GROWN 

DATA TO USE IS TO PAY 

DATA GOES ALMOST EVERYWHERE 

DATA LOTS OF NOISE,TERRIFIC SPEED 
DATA SST IS ONE 


1280 DATA LARGER THAN A HAIR,MENDS 

1290 DATA HAS STRENGTH,USED TO MAKE CLOTHES 
1295 DATA IN ALL COUNTRIES 

1300 DATA HAS WHEELS,USES NO GAS 

1310 DATA PASSENGERS,CARGO,SETS ON RAILS 
1320 DATA IS NOT DRY,GOES TO MANY DEPTHS 
1330 DATA CAN BE VIOLENT,CONTAINS FOOD 
1340 DATA SALTY,CAN TEAR,CAN BE FOLDED 
1350 DATA MADE FROM A TREE,DIFFERENT SIZES 
1360 DATA LIGHT OR HEAVY 

1400 DATA FRIENDS GATHER,TO CELEBRATE 

1410 DATA CAKE OR DRINKS, CANDLES 

1420 DATA CAN LAST ALL NIGHT,FOLDED WHEN MADE 
1423 DATA LIGHTWEIGHT OR HEAVYWEIGHT 

1430 DATA USED FOR SHIPPING OR STORING 
1435 DATA MADE FROM TREES 

1440 DATA COMPUTER CAME IN ONE 

1450 DATA DIVIDES,NOT LEFT OR RIGHT 

1460 DATA PERSON MOST IMPORTANT 

1470 DATA OF A CIRCLE, POINT _OF NERVES 

1480 DATA HAS NO LEGS,LONG OR SHORT 

1490 DATA CAN STRIKE,CAN KILL,SHEDS SKIN 
1500 DATA MOST OF WOOD,HAS A LOCK 

1510 DATA BLOCKS INTRUDERS, OPENS 

1320 DATA AND CLOSES 


Variables and Strings 

AM - Number of players (1-4) 

X$(D - First nares of players 

WS) - Words 

A§$() - Clues 

R(D - For deleting already selected words 
J,JJ - For correct clue to word selected 
WWS$ - User input of word 

TP - Total points 

C - Clue counter, up to 5 

U - Counter for all words 

TP(D - Total points gained by current player 


Explanation of the Program Lines 


Lines 10-210 clear memory for string entries, dimensions the 
arrays for words and clues, and displays the general instructions. 

Lines 220-270 request the number of players and their first 
names. 

Line 280 sets the counters for the players and words. 

Line 290 indicates the current player. 
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Line 300 branches to line 340 if the data has been read. 

Uines 210-220 read all words and clues. R(A) is used for 
deleting already selected words. 

Lines 340-380 select one random word and using variables J & 
JJ, get its appropriate clue (line 380). 

Lines 390-590 allow the current player to enter his or her word 
to match the clues given. Ifthe word does not match, the total points 
(TP) are decreased by 10. The computer then gives another clue, 
until 5 clues have been presented. If the user’s word does not match, 
he or she is given the number of points indicated by the current 
value of TP. That word is then deleted, and the program advanced to 
the next player if more than one is playing. If the current player has 
used all 5 clues and did not get the correct word, that word will be 
retained for future use, and the program again advances to the next 
player. 

Lines 600-720 print all the player’s names and their total points 
and then terminate the game. 

Lines 800-870 test to see if all data elements (words) have 
been selected and deleted. If not, program flow will branch to the 
next player, and the computer will select one of those words. If all 
the words have been used, the program is terminated using lines 
600-720. 

Lines 1000-1520 contain all the data elements for the words 
and clues. 
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Games of General Interest 


Where’s the Necessary Room lets you experience drunkenness 
without touching a bottle. See if you can find your way through the 
bar with the help of an inebriated computer. 

Troubles allows you to sob on the shoulders of the computer, 
which will offer you some sound advice. 

General Store pressures you to add prices together quickly. 
The swiftest thinker will win the game. 

Respect Your Computer is a game you'll never win! 

Love One Another lets you bring your problems with your 
spouse or friend to the computer and helps you resolve your dis- 
agreements. 

Date Service helps you determine who you are most com- 
patible with. 

Key a Date allows you to keep a secret file of all those you 
might like to call for a date. The information is safe from prying 
eyes. 


59 


Laundry é ——= & Door to 
room another 
floor 
: (e) 
ff 
J 


WHERE’S THE NECESSARY ROOM? 


You’re minding your own business inside this bar that is large 
enough to let two pro-football teams battle it out. You’ve imbibed 
quite a lot of liquid, and now you have an urge, a pain, and you must 
relieve it soon or “#”! So, instead of asking anyone, you and your 
computer will now try and locate that little room. There are plenty 
of meanies in this bar as well as many rooms ! Don’t let the computer 
fool you. 


Sample Run 


WHERE’S THE NECESSARY ROOM??? 
SEE THE INSTRUCTIONS...YOU DRUNK? YES 


SO HERE YOU ARE AGAIN, YOU LUSH!!! 
FILLED YOUR KIDNEYS TO THE BRINK; 
YOUR HEAD IS SPINNING AND WHAT 
DO YOU NEED ?? NATURALLY, THIS 
BEING A COMPUTER PROGRAM, | YOUR 
COMPUTER WILL TRY AND HELP YOU 
LOCATE THAT LITTLE ROOM (IF THERE 
IS ONE!!) STEP BY STEP. 

NATURALLY THIS BEING A COMPUTER 
PROGRAM (DID | SAY THAT?) | HAVE 
ALSO HAD A LITTLE TOO MUCH... 
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HIT THE WHITE KEY? 

VOU DREINK TT 

AS | SAY...L AM ALSO A LITTLE 

TIPSY, IF MY CIRCUITS HOLD TO... 
GETHER LONG ENOUGH, WE TOGETHER 
WILL FIND THAT ROOM. WHAT'S YOUR 
NAME CLYDE? GRETA 

YOUR KIDDING, SUCH A LONG NAME. 
SO...TO FIND THAT ROOM, | WILL 
INSTRUCT YOU ON THE ROUTE. YOU 
IN TURN WILLL PRESS EITHER THE 
LEFT ARROW KEY...OR THE RIGHT 
ARROW KEY, THAT IS iF YOU 

BELIEVE WHAT | TELL YOU. IF 

LUSH, HIT THAT KEY AGAIN? 

YOU DO NOT BELIEVE ME, PRESS 
THAT LONG BAR, AT THE BOTTOM 

OF THE KEYBOARD...OK GRETA? 
EXCUSE ME WHILE | UNSCRAMBLE A 
FEW FLIP-FLOPS..... 


GRETA WE ARE NOW AT TABLE 35 

MEANING, WE MUST TRAVEL 35 

TABLES TO REACH THE BAR. 

TOTAL DISTANCE, | WOULD ESTIMATE 

TO BE AROUND 144 FEET. 

GLANCING AROUND (SOMETHING YOU'RE 

NOT TOO GOOD AT) | JUDGE THERE ARE ABOUT 68 
CUSTOMERS WE MUST GET PAST... 


OK, LUSH...1 MEAN GRETA 

GET UP AND MOVE RIGHT, AWAY 

FROM MS. FOUL MOUTH. SHE’S A MEANIE 
WE DON'T WANT TO TANGLE WITH. 


PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

OK, LUSH...1 MEAN GRETA 

GET UP AND MOVE LEFT, AWAY 
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INSTRUCTIONS 


READ 
MESSAGE DATA 


MOVEMENT THROUGH 
BAR/OUTPUT 
MESSAGES 


ALL TABLES 
PASSED 


CONTINUE oa 
MOVEMENT 


PRINT MESSAGE 
ON DOOR 


FINAL 
MESSAGE 


Flowchart for Where's the Necessary Room? 


FROM MR. SMASH. HE'S A MEANIE 


AGI ENCANA NALARIT TON TARICH & ONAITLU 
V¥VLIU LAIN ff vr aN PP VERNA We ee 


PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

WE’RE GETTING CLOSER GRETA 
HOLD THAT BLADDER |!!! 


OUR DISTANCE IS NOW AT 41 FEET. 
WITH 17 TABLES AND 

STILL 79 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT’S 76 CUSTOMERS. 
A FEW JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES 

STILL 76 CUSTOMERS TO GET BY. 

OK LUSH...| MEAN GRETA 

ALL DIRECTIONS POINT LEFT, AWAY 
FROM MR. P. WADDLE. HE’S A MEANIE, 
WE DON’T WANT TO TANGLE WITH. 


| SAID, GO LEFT, YOU WENT RIGHT 

GRETA, YOU ARE A LITTLE MORE 

DRUNK THAN | FIRST THOUGHT !! 

YOU JUST STEPPED ON MR. MUZZLE TOES. 
CAN’T YOU LISTEN TO DIRECTIONS ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL. 76 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 75 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK LUSH...| MEAN GRETA 

LOOK RIGHT THEN MOVE RIGHT, AWAY FROM MS. LEAN 
TOO. SHE’S A MEANIE 
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WE DON’T WANT TO TANGLE WITH. 
WRONG DOOR !! 
THIS IS THE BASEMENT. 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK, LUSH... MEAN GRETA 

LOOK LEFT THEN MOVE LEFT, AWAY 

FROM MR. MUZZLE. HE’S A MEANIE 

WE DON'T WANT TO TANGLE WITH. 

GUESS WHAT YOU'VE JUST WALKED 

INTO? YES, THE OFFICE! FEEL EMBARRASSED, YOU 
DRUNK !! 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
OK,LUSH...| MEAN GRETA 


PRESS THE RIGHT ARROW OR 

THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

I'M SORRY, MY MISTAKE, | TOLD 

YOU THE WRONG DIRECTION GRETA. 
DINGY !! YOU SHOULDN'T HAVE 
LISTENED THIS TIME !!! 


HOW DID THAT BOTTLE THAT MS. FOUL MOUTH 
JUST BROKE OVER YOUR HEAD FEEL ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT’S 70 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 70 CUSTOMERS TO GET BY. 
OK, LUSH...1 MEAN GRETA 
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WE WILL NOW MOVE RIGHT 


I'M SORRY, MY MISTAKE, | TOLD 

YOU THE WRONG DIRECTION GRETA. 
YOU SHOULDN'T HAVE 

LISTENED THIS TIME !!! 


OF ALL THE MEANIES TO RUN IN TO !! 
NEXT TIME MS. FOUL MOUTH WILL PROBABLY 
FINISHING BREAKING YOUR FACE... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 70 CUSTOMERS TO GET BY. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHERE'S THE 

20 REM NECESSARY ROOM ??? 

30 CLS 

40 PRINT"WHERE'S THE NECESSARY ROOM ???" 
50 PRINT 

60 PRINT"SEE THE INSTRUCTIONS..."; 

65 FOR I=1TO500:NEXT: PRINT’ YOU DRUNK", 
70 INPUT 5 

80 IF X$<>"¥" AND X§<>)"YES" THEN DD=1: 


GOTO 275 
90 PRINT"SO HERE YOU ARE AGAIN, YOU 
LUSH !/ 1!" 


100 PRINT"FILLED YOUR KIDNEYS TO THE BRINK;” 
110 PRINT’ YOUR HEAD IS SPINNING AND WHAT" 
120 PRINT"DO YOU NEED ?? NATURALLY, THIS" 
130 PRINT’ BEING A COMPUTER PROGRAM, I YOUR" 
140 PRINT" COMPUTER WILL TRY AND HELP You" 
150 PRINT"LOCATE THAT LITTLE ROOM (IF THERE" 
160 PRINT"IS ONE! !) STEP BY STEP." 

170 PRINT'NATURALLY THIS BEING A COMPUTER" 
180 PRINT“ PROGRAM (DID I SAY THAT?) I HAVE" 
190 PRINT"ALSO HAD A LITTLE TOO MUCH..." 

200 PRINT 


210 
220 
230 
240 
250 
260 
270 
275 
280 
270 
300 
310 
320 
330 
340 
3350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
200 
510 
920 
330 
940 
350 
560 
370 
$73 
380 
399 
600 
610 
615 
620 
630 
640 
650 


INPUT"HIT THE WHITE KEY"; X$ 

CLS 

PRINT'YOQU DRUNK! ! (1 " 

PRINT"AS I SAY...1I AM ALSO A LITTLE" 


PRINT"TIPSY, IF MY CIRCUITS HOLD TO...' 


PRINT"GETHER LONG ENOUGH, WE TOGETHER" 


t 


PRINT"WILL FIND THAT ROOM. WHAT'S YOUR" 


IF DD=1 THEN PRINT"THE "; 

INPUT"NAME CLYDE" ;N$ 

IF LEN(N$))=3 THEN 310 

GOTO 320 

PRINT“YOUR KIDDING, SUCH A LONG NAME.“ 
PRINT: IF DD=i THEN 460 

PRINT"SO...TO FIND THAT ROOM, I WILL" 
PRINT" INSTRUCT YOU ON THE ROUTE. YOU" 
PRINT" IN TURN WILL PRESS EITHER THE" 
PRINT"LEFT ARROW KEY...OR THE RIGHT" 
PRINT"ARROW KEY, THAT IS IF YOU" 
PRINT" BELIEVE WHAT I TELL YOU. IF" 
PRINT 

INPUT"LUSH, HIT THAT KEY AGAIN"; X$§ 
CLS 

PRINT"YOU DO NOT BELIEVE ME, PRESS“ 
PRINT"THAT LONG BAR, AT THE BOTTOM" 
PRINT"OF THE KEYBOARD... .OK ";N$;“"?" 
FOR [=1T02000:NEXT 

PRINT"EXCUSE ME WHILE I UNSCRAMBLE A" 
PRINT“ FEW FLIP-FLOPS..... i 

RANDOM 

REM TABLES 

TA=RND(50):1F TA¢=15 THEN 500 

REM START DISTANCE FROM ROOM 
D=RND(150) 

IF D{=50 THEN 520 

REM CUSTOMERS IN BAR 

P=RND(100) 

IF P¢{=20 THEN 550 

REM NUMBER OF WRONG DOORS 

REM LEAVE TWO FOR FINAL 

DR=RND(7) 

IF DR<=4 THEN 580 

REM READ WRONG DOOR TITLES 

FOR I=1TODR:READ D$(1I):U(1)=1:NEXT 
FOR I1=DR+1T010:READ F$(1I):NEXT 

DATA WOMEN'S ROOM, ATTIC, EXIT, BASEMENT 
DATA OFFICE,WINE CELLAR, LUNCH 

DATA LAUNDRY , DRESSING, NECESSARY 
J=DR-4:PQ=1:PJ=s1:REM TIME / MEANIES 
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FOR I=1TOS:READ M$(I):MC(I)=I 
IF LETS (MECI), 1) 0)"M" THEN £6 
ELSE NEXT 

DATA MR. MUZZLE,MR. SMASH 
DATA MS. LEAN TOO,MS. FOUL MOUTH 

DATA MR. P. WADDLE 

REM SOME STRING CONTENTS 
K$="STILL":B$="MY CPU HURTS" 

L$="LEFT" :R$="RIGHT" : Z$="ZZZZZZZZZ2" 
FOR I=1TOi500:NEXT 

PRINT 

PRINT N$;" WE ARE NOW AT TABLE"; TA 
PRINT"MEANING, WE MUST TRAVEL"; TA 
PRINT"TABLES TO REACH THE BAR." 
PRINT"TOTAL DISTANCE, I WOULD ESTIMATE" 
PRINT"TO BE AROUND";D; "FEET." 
PRINT"GLANCING AROUND(SOMETHING YOU'RE" 
PRINT"NOT TO GOOD AT) I JUDGE.THERE 

ARE ABOUT" ;P 

PRINT"CUSTOMERS WE MUST GET PAST..." 


i 


REM MESSAGE ~~-~ BS$ 
=-64:.[=0 
L=L+64:.1=1+1: FOR I[1=1TO500:NEXT 


PRINT@L, STRINGS (35,32) 
PRINT@L+30,MID$(B$,1,1):IF L¢=896 THEN 
850 

CLS 

GOSUB 1070:GOTO 920 
PRINT"OK, LUSH...I MEAN ";N§& 
T=0: RETURN 

GOSUB 900:GOSUB 925:GOTO 960 
REM MEANIE SELECT 
M=RND(3?):1F M(M)=0 THEN 930 
M$=M$ (M) :M(M)=0 


IF LEFTS(M$,2)="MS" THEN C$=". SHE" 
ELSE Cs=". HE" 

RETURN 

PRINT'GET UP AND MOVE ";TS;", AWAY" 
PRINT" FROM ";MS;" ";C$;"'S A MEANIE," 


PRINT"WE DON'T WANT TO TANGLE WITH." 
GOSUB 1000:GOTO 1130 
WS=INKEYS:T=T+1:1F T)=J*100 THEN 1025 
IF W$=""" THEN 1000 

WW=ASC(WS) : RETURN 

PRINT 

PRINT"PRESS THE ";R$;" ARROW, OR" 
PRINT"THE ";L$;" ARROW OR THE LONG" 
PRINT"BAR...YOU DRUNK, QUIT BOBBIN'" 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1215 
1216 
1220 
1230 
1240 
1250 
1260 


1270 
1275 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1345 
1350 
1360 
1365 
1370 
1380 


1390 
1400 


1410 
1420 
1430 
1440 


PRINT" YOUR HEAD !!":T=0:GOTO 990 

REM GET LEFT / RIGHT 

FOR I=1T010 

Y=RND(2) 

IF Y=1 THEN T$=L$:GOTO 1120 

TS=2R$ 

NEXT: RETURN 

IF WW+85=93 THEN 1170 

IF WW+85=294 THEN 1170 

IF WW=32 THEN 1170 

PRINT:GOTO 1030 

WW=ASC(W5) 

IF ABS(T-J)>=100 GOSUB 1520 

IF T$="RIGHT" AND WW+85=94 THEN 1440 
IF TS="LEFT" AND WW+85=93 THEN 1440 

IF WW=32 THEN PRINT:GOTO 1700 

IF TS="RIGHT" THEN F$=LS ELSE FS=R8 
PRINT 

PRINT"I SAID, GO ";T$;", YOU WENT ";FS$ 
PRINT N$;", YOU ARE A LITTLE MORE" 
PRINT"DRUNK THAN I FIRST THOUGHT !!" 
RE=RND(6):UU=RND(5) :-M$=M§ (UU) 

ON RE GOTO 1270,1290,1320,1345,1365, 
1400 

PRINT M$," JUST BROKE PART" 

PRINT'OF YOUR FACE !!" 

GOTO 1430 

PRINT" YOU JUST STEPPED ON ";M5;" TOES," 
PRINT"CAN'T YOU LISTEN TO DIRECTIONS 
gate 

GOTO 1430 

PRINT"HOW DID THAT BOTTLE THAT "; M$ 
PRINT" JUST BROKE OVER YOUR HEAD FEEL??" 
GOTO 1430 

IF JA=1 THEN 1250 

PRINT"MOST LUSHES LISTEN, YOU ARE AN" 
PRINT" EXCEPTION. ..DINGY !!!":GOTO 1430 
IF JA=1 THEN 1250 

PRINT"THREE KEYS TO PRESS, AND YOU MY" 
PRINT" DRUNK FRIEND, PRESS THE WRONG 
ONE ! 1" 

GOTO 1430 

PRINT"OF ALL THE MEANIES TO RUN IN 

TO !it* 

PRINT"NEXT TIME “;M$;" WILL PROBABLY" 
PRINT" FINISH BREAKING YOUR FACE..." 
PRINT: E$="STANDS":GOTO 1660 

REM MOVE CORRECT ? 
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1450 
1460 
1470 
1480 
1490 
1300 
1510 
1320 
1530 
1340 
1350 
1560 
1370 
1580 
1390 
1600 
1605 
1610 
1615 
1620 
1630 
1640 
1650 
1660 
1665 
1670 
1673 


1676 
1680 
1685 
1690 
1700 
1710 
1720 
1730 
1740 
1750 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
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PL=RND( 10) 

IF PL<¢=DR THEN 1610 ELSE PRINT 
PRINT"I'M SORRY, MY MISTAKE, I TOLD" 
PRINT" YOU THE WRONG DIRECTION "“;NS;"." 
PRINT"DINGY !! YOU SHOULDN'T HAVE" 
PRINT'LISTENED THIS TIME !!1" 

PRINT: JA=1:GOTO 1250 

REM SNORE MESSAGE 

REM TAKING TOO LONG / WRONG KEY 

FOR I=1TO LEN(ZS§) 

PRINT MID$(Z6,1,1); 

FOR ER=1TOSO:NEXT ER 

NEXT I: PRINT 

PRINT" THOUGHT I WOULD CUT A FEW" 
PRINT"Z'S WHILE YOU WERE LOOKING" 
PRINT"FOR THE KEYS..... "> PRINT 

FOR 1=1T01200:NEXT: RETURN 

IF Dé<=530 THEN 1830 ELSE PRINT 
PRINT"WE'RE GETTING CLOSER, "GUNS 
PRINT"HOLD THAT BLADDER !!!1": PRINT 
D=(D-INT(D/TA)-10) :E$="I1S NOW" 

IF D<=0 THEN 2500 

TA=TA-1:P=P-RND(5) 

PRINT"OUR DISTANCE ";E$;" AT"; D;"FEET." 
IF TA¢=0 PRINT"AND ";:GOTO 1675 
PRINT"WITH ";TA; "TABLES, AND" 

IF P<=0 THEN PRINT"NO CUSTOMERS TO GET 
BY !1":GOTO 1690 

IF P¢<=10 THEN K$="ONLY" 

PRINT KS;" ";P;"CUSTOMERS TO GET BY." 
IF RND(TA)(=10 AND XX=0 THEN 2300 
XX¥=0:GOTO 2100 

REM SPACE BAR ? 

PL=RND( 95> 

IF PL<=2 THEN 1790 

PRINT"WHY? WHY DID YOU PRESS THE SPACE" 
PRINT" BAR?? OF ALL THE TIMES NOT TO" 
PRINT" BELIEVE ME, THIS TIME I WAS ” 
ghSG3 

PRINT" YOU ARE AT THE SAME PLACE YOU" 
PRINT"WERE YOU...YOU DINGY #@!1/#&'!" 
PRINT: GOTO 1250 

PRINT" YOU WERE RIGHT, ";N$;" I TOLD" 
PRINT"A BLOODY LIE AND you" 
PRINT"DIDN'T FALL FOR IT !!!"% 

PRINT: GOTO 1610 

REM WRONG DOOR MESSAGE 

IF PQ)DR THEN 1615 


1830 
1860 
1870 
1880 
1885 
1890 
1900 
1910 
1920 
1930 
1940 
1945 


1950 
1955 
1960 
1970 
1980 
1990 
2000 
2010 


2020 
2025 
2030 
2040 
2045 
2050 
2055 
2060 
2065 
2070 
2080 
2100 
2110 
2120 
2130 
2140 


2150 
2160 


2163 
2170 
2175 
2180 
2185 
zi90 
2195 
2200 


DA=RND(DR) 

IF U(DA)=0 THEN 1850 

V$=D$ (DA) 

UCDA)=0:PQ=PQ+1 

IF MID$(V$,2,1)="XK" THEN 2040 
DA=RND(6):1F DA=6 THEN i615 

ON DA GOTO 1910,1940,1970,2010,2040 
PRINT" YOU'VE JUST WALKED INTO THE ";V§ 
PRINT"FEEL EMBARRASSED, YOU DINGY !! 
GOTO 2070 

PRINT'NO PLACE TO DRAIN A BLADDER HERE" 
IF LEFTS(V$,2)="OF" PRINT" IN THE ";V$;" 
":GOTO 20670 

PRINT"THIS IS THE "“;VS; 

IF RIGHTS(V$,2)="CH" PRINT’ROOM !!" 
PRINT: GOTO 2070 

PRINT"FEEL ODD ? YOU'VE JUST STEPPED" 
PRINT" (ALMOST) STRAIGHT INTO THE ";V& 
PRINT"HAVING PROBLEMS READING SIGNS ??" 
GOTO 2070 

PRINT"'W RONG DOOR DINGY 

i '" 

PRINT'THIS IS THE ";V&,; 

IF RIGHT$(V$,2)=s"CH" PRINT" ROOM" 
PRINT:GOTO 2070 

PRINT"GUESS WHAT YOU'VE JUST WALKED" 
IF LEFTS¢(V$,2)e"EX" THEN 2065 

PRINT" INTO? YES, THE ";V$&; 

IF RIGHTS(V$,2)="CH" PRINT'ROOM [ 1" 
PRINT: GOTO 1920 

PRINTOUT THE ";V8;".":GOTO 2070 
PRINT: IF LEFTS$(V$,2)e"EX" THEN 2250 
GOTO 2410 : 

REM CONTINUE MOVEMENT TO HEAD 
BJePJ+1:GOSUB 900 

IF PJ<a5 GOSUB 930 

FOR [m1TO3500:NEXT:GOSUB 1070 
WEaRND(5):REM MOVEMENT MESSAGE SELECT 
ON WE GOTO 2160,2170,2180,2190,2200 
PRINT"WE WILL NOW MOVE ";T$; 

GOTO 2220 

PRINT“ALL DIRECTIONS POINT “;TS§; 

GOTO 22290 

PRINT T8;" IS THE RIGHT DIRECTION "; 
GOTO 2220 

PRINT"LOOK ";T$;" THEN MOVE ";T$; 
GOTO 2220 

PRINT'DON'T STUMBLE NOW, DINGY !!1" 
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2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
24930 
2440 
2500 
2510 
25320 
2530 
25340 
2350 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2630 
2660 
2670 
2680 
2690 
2700 
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PRINT"MOVE SLOWLY ";TS§; 
IF PJi=4 PRINT", AWAY" :GOTO 970 

PRINT 

GOTO 990 

PRINT"GOING OUT THE “;V$;" WASN'T TOO" 
PRINT'SMOOTH...TURN AROUND, THEN WE'LL" 
PRINT"CONTINUE TO LOCATE THAT ROOM." 
FOR I=1T03000:NEXT 

GOTO 2100 

REM REMOVE MORE CUSTOMERS 

IF P<=3 THEN XX=i1:GOTO 1690 
AA=RND(5) : DF=DF+1:XX=1 

IF DF>=4 THEN 2340 ELSE’ P=P-AA 
PRINT"EXCUSE ME, THAT'S";P; "CUSTOMERS. " 
IF DF)=2 THEN MM$="MORE" 

PRINT'A FEW “;MM$;" JUST PASSED OUT..." 
IF RND(P)(=10 THEN 2360 


GOTO 2410 
FOR 1#1TO2000:NEXT:1IF DF>=7 THEN 24r0 
PRINT"HOLD IT !!! THE BOUNCER JUST" 


AA=RND(3):P=P-AA 

PRINT"CARRIED OUT"; AA; "MORE, FOR" 
PRINT" FIGHTING DURING HAPPY HOUR..." 
FOR T=1T02000:NEXT 


PRINT 

Es="STANDS": JA=0 

GOTO 1660 

REM FINAL ~- ROOM REACHED 


PRINT"YOU'VE REACHED THE ROOM !11" 
FOR I=1T02500:NEXT 

I=RND(10) 

IF I¢<=DR THEN 2530 

PRINT'IF YOU CAN KEEP YOUR EYES OPEN" 
PRINT"LONG ENOUGH...RAISE YOUR HEAD" 
PRINT"AND READ THE SIGN ON THE DOOR." 
D$=FS$(I) 

X=0 

FOR I=1T0900:NEXT 

PRINT: X=X4l 

IF X=? PRINT@985,D$;" ROOM" 

IF X¢=14 THEN 2600 

IF LEFT$(D$,1)}="N" THEN 2690 

PRINT 

PRINT"®* THE WRONG DOOR *#* 
PRINT“ALL THIS FOR NOTHING, DINGY !!!" 
GOTO 2760 

PRINT"THIS IS IT !tt" 

PRINT"THE RIGHT NECESSARY ROOM !!!" 


2710 PRINT"RELIEF IS ON THE WAY..." 

2720 PRINT 

2730 FOR I=1T04000 :NEXT 

2740 PRINT"NOW THAT YOU ARE FEELING MUCH" 
2750 PRINT"BETTER, SHALL WE HAVE....." 

2760 PRINT"ANOTHER RUN OF NECESSARY ROOM"; 
2770 INPUT X& 

2780 IF X$)"¥" AND X$<)"YES" THEN 2810 
2790 PRINT"GET TO DRINKING...HERE WE GO !!" 
2800 FOR I=1T01200:NEXT: CLEAR: DD=1:GOTO 275 
2810 PRINT 

2820 PRINT" END" 

2830 END 


Variables and Strings 


DD - Instructions not needed (when equal to 1) 
N§$ - User’s name 

TA - Number of tables 

D - Distance to room 

P - Customers in bar 

DR - Wrong doors, D$(I) 

M$) - Meanies in bar 

J - Time loop 

PJ - Moves toward room 

M - Selection of meanie 

WW - User’s key closure 

RE - For random message, along with UU and M$ 
PL - Correct move (random) 


Explanation of the Program Lines 

Lines 10-270 display the general instructions if they are re- 
quired. 

Line 280 inputs the user’s name. 

Lines 290-470 display the rest of the instructions. 

Lines 480-720 set the variables for play and read all the data 
statements. 

Lines 750-820 are messages to the user concerning distances, 
tables, and customers. 

Lines 830-870 let the user know how the computer feels. 

Lines 900-910 display a message used by GOSUB statements 
throughout the program. 

Lines 925-955 select a meanie. 
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Lines 960-980 tell the user which direction to take. 

Lines 1000-1020 form the INKEY§ routine for the user’s di- 
rection entry. 

Lines 1025-1060 display a message indicating that the user is 
taking too long to decide. 

Lines 1070-1120 get a left/right direction for the user. 

Lines 1130-1160 sort the key closures indicating the direction 
of movement. 

Lines 1170-1430 display more messages concerning move- 
ment to the room. 

Lines 1440-1510 display a wrong move message. 

Lines 1520-1605 display a message indicating that the user is 
taking too long. 

Lines 1610-1690 display a message indicating that the distance 
and number of tables are decreasing. 

Lines 1700-1820 display messages in response to the pressing 
of the space bar. 

Lines 1830-2440 display various messages concerning the 
user’s position. 

Lines 2500-2830 display the final message printed on door of 
the room the user has come to. 
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The 
relatives 4 


All mix 
whiskey 


TROUBLES 


Depending upon the nature of your particular troubles, the com- 
puter will try and give you a solution. Of course, it would take more 
memory space that any computer has to cover every aspect of a 
person’s troubles, so be patient with your computer. Give it the 
precise information it requires and who knows? 


Sample Run 


TROUBLES 


SO YOU HAVE SOME TROUBLES AND 
YOU ARE TURNING TO ME, YOUR COMPUTER, 
| WILL HELP YOU IN EVERY WAY | 
CAN, USING LOGICAL DEDUCTIONS. 
PLEASE BE SPECIFIC 

WHEN ANSWERING ALL QUESTIONS 

| WILL SUBMIT TO YOU. THE MORE 
SPECIFIC YOU ARE, THE BETTER 
YOUR ANSWER WILL BE. 

USE NO COMMAS, SEMICOLONS, 
COLONS OR PERIODS. 


YOUR FIRST & LAST NAME?TARGET MOORE 
MALE (M) OR FEMALE (F)? — 
TRY AGAIN: CHECK IF NECESSARY. 
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MALE (M) OR FEMALE (F)?M 


TAMIRIES 
BN a Fe ee lee St 


DATA COLLECTED THUS FAR: 

NAME TARGET MOORE 

SEX: MALE 

CONFIRM (Y/N)?Y 

WITH MORE THAN 1 WORD AND LESS 

THAN 10, DESCRIBE YOUR TROUBLES? WOMEN 

BE A LITTLE MORE SPECIFIC, WHAT 

ABOUT WOMEN? 

WITH MORE THAN 1 WORD AND LESS 

THAN 10 DESCRIBE YOUR TROUBLES? 

CAN'T GET ENOUGH RESPONSE FROM WOMEN 
TROUBLES 


SORTING WORDS 
JUST HOW MANY WOMEN?3 


GOOD GRIEF !! 
IS ANY ONE OF THESE YOUR WIFE?YES 


DO YOU FEEL YOU ARE CHEATING ON 
YOUR WIFE AND YOURSELF ?YES 


YOU SHOULD FORGET THE OTHER 
WOMEN BEFORE YOU GET DEEPER THAN 
WHAT YOU ARE NOW...TARGET 


DO YOU AGREE 


? NO 


WHY DON’T YOU AGREE TARGET ?1 CHOOSE TO PLAY 
THE FIELD 


BECAUSE YOU CHOOSE TO PLAY THE FIELD? 
HOW LONG HAS THIS BEEN 

GOING ON TARGET 

SELECT ONE: 

1> DAYS 
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MORE 
TROUBLES 


OUTPUT 
QUESTIONS SOLUTIONS 


Flowchart for Troubles. 
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2> WEEKS 
3> MONTHS 
4> YEARS 
24 


DID THESE WOMEN FIND OUT 
ABOUT ONE ANOTHER TARGET ?YES 


THAT'S THE TROUBLE: JUST STICK 
TO ONE WOMAN FOR AWHILE 
THINGS WILL WORK OUT MUCH 
BETTER. YOU'LL SEE, TARGET . 
LIKE TO TRY ANOTHER?NO 


END OF PROGRAM... 


Program Listing 


E10 REM PROGRAM TITLE: TROUBLES 

20 CLS: CLEAR 1200:GOSUB 30:GOTO 50 

30 PRINT TAB(100"T R OU BLE S&S" 

90 PRINT: RETURN 

30 PRINT"SO YOU HAVE SOME TROUBLES AND" 
60 PRINT"YOU ARE TURNING TO ME, YOUR 

COMPUTER." 

70 PRINT"I WILL HELP YOU IN EVERY WAY I" 
80 PRINT"CAN USING LOGICAL DEDUCTIONS." 
90 PRINT"PLEASE BE SPECIFIC" 

100 PRINT"WHEN ANSWERING ALL QUESTIONS" 
110 PRINT"! WILL SUBMIT TO YOU. THE MORE" 
120 PRINT'SPECIFIC YOU ARE, THE BETTER" 
130 PRINT" YOUR ANSWER WILL BE." 

140 PRINT“USE NO COMMAS, SEMICOLONS," 

145 PRINT"COLONS OR PERIODS." 

150 PRINT: PRINT" YOUR FIRST & LAST NAME"; 
160 INPUT N$:GOSUB 490 

170 INPUT"MALE (M) OR FEMALE (F)";88 

180 IF S$="M" THEN S&="MALE":GOTO 220 

190 IF S$="F" THEN S$="FEMALE" :GOTO 220 
200 PRINT'TRY AGAIN; CHECK IF NECESSARY." 
210 GOTO 170 

220 CLS 
230 GOSUB 30 

240 REM BEGIN 
230 PRINT"DATA COLLECTED THUS FAR:" 
260 PRINT"NAME: "GUNS 


78 


270 
290 
300 
310 
320 
325 
330 
340 
345 
350 
360 
370 
375 
380 
390 
400 
410 
420 
430 
440 
445 
450 
435 
960 
965 
470 
480 
490 
500 
910 
320 
530 
340 
550 
360 
570 
$80 
990 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


PRINT"SEX: "“78$ 

GOSUB 550 

INPUT" CONFIRM (Y/N)'; A$ 

IF AS<>"Y" THEN F$="":GOTO 140 
DIM X$(46),AC12),A6(12) 
P§="":W=e1:PRINT 


PRINT"WITH MORE THAN 1 WORD AND LESS" 
PRINT"THAN 10, DESCRIBE YOUR TROUBLES" 
IF Y=i1 THEN Y=0:PRINT"NO PERIODS..." 
INPUT P$ 

FOR I=1 TO LEN(P$) 

IF MID$¢(P$,1,1)=" " THEN 390 

IF MID$(P$,I1,1)«"." THEN Y=1:GOTO 325 
NEXT: IF Wt=1 THEN 455 ELSE GOTO 470 
REM WORD COUNT 

W=eW+il 

IF W)=11 THEN 430 

GOTO 380 

IF LEN(P$)¢=200 THEN 470 

PRINT" YOU'VE ENTERED"; W; "WORDS ";N$ 
PRINT" REENTER A SHORTER VERSION." 
GOTO 325 

PRINT"BE A LITTLE MORE SPECIFIC, WHAT" 
PRINT" ABOUT “;P$;'"?" 

GOTO 325 

REM DEFINE PARTS OF PROBLEM 
CLS:GOSUB 30:GOTO 580 

REM FIRST NAME BASIS 

FOR I=1 TO LEN(NS) 

FS=PS+MID$(NS$,1,1) 

IF MIDS(N$,1I,1)=" " THEN RETURN 

NEXT 

RETURN 

REM TIME LOOP 

FOR TiI=#1T01000:NEXT 

RETURN 

REM REPLACEMENT WORDS / WORD DATA 

FOR I=#1 TO 46:READ X$(I):NEXT: Lei :Qe1l 
REM WORD COUNT / WORD IN DATA LIST 
T=1:KeLEN(P$) 

IF MID$(P$,1,1)2" “ THEN 650 

I=I41:IF I=K THEN 670 

GOTO 620 

A(Q)=L:L=1:Q=Q+1:REM WORD SEPARATION 
GOTO 630 

ACQ)=L 

AC1)#0:121:220:Q=1 

FOR L=AC(I)41 TO ACI¢1)-1 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


940 


950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1180 
1190 
1200 
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AS$(Q)=A$(Q)4MID$(PS$,L,1>) 

NEXT :Q2Q41 

IF IT=Z THEN 740 

T=I+1:GOTO 690 

REM LAST WORD IN SENTENCE 

FOR LeACI)+1 TO LEN(PS$)_ 
A$(Q)=A$(Q)4MID$(PS$,L,1) 

NEXT: Q=1 

ASCZD=A$S(Z41):A$(Z41) 28" 

REM COMPARE EACH WORD IN SENTENCE 
REM WITH WORDS IN DATA LIST FOR MATCH 
T=1 

IF X6C(I)=A$(Q) THEN 1010 

T=I+1:1F I)=30 AND Q@)>)=3 THEN 890 


IF 3>=47 THEN 860 

GOTO 820 

Q=Q+4+il 

IF G@>=Z+1 THEN 910 

GOTO 610 

PRINT@75,"SORTING WORDS" 

GOTO 840 

REM WORD NOT IN FILE 

PRINT 

PRINT"I AM REALLY SORRY, BUT I 


AM UNABLE" 

PRINT"TO DISCUSS THIS PARTICULAR 
PROBLEM" 

PRINT"WITH YOU. PERHAPS YOU WOULD" 
PRINT"LIKE TO TRY ANOTHER"; 

GOSUB 980:GOTO 990 

INPUT A$: PRINT: RETURN: REM STRING ENTRY 
IF AS="Y¥" OR AS="YES" THEN 1180 
GOTO 4620 

REM WORD LOCATED / START OUTPUT 
WS=K6C1I) 

M= I 

IF M>=1 AND M<=4 THEN 1190 

IF M>=S AND M<=8 THEN 1190 

IF M>=9 AND Mt=16 THEN 2700 

IF M)=20 AND M¢(=28 THEN 3300 

LF M>=29 AND M¢=31 THEN 2000 

IF M>)=32 AND M(=35 THEN 3600 

IF M>=36 AND Mt=42 THEN 4030 

IF M=43 OR M=45 THEN 2100 

IF M=44 OR M=46 THEN 2100 

RESTORE: GOTO 325 

IP M=2 OR M=4 OR M=6 OR M=7 THEN 2100 
PRINT" JUST HOW MANY ";WS$; 


1205 IF M=5 OR M=8 THEN 5820 

1210 GOSUB 980:A=VAL(A$):RS=X5§(43) 

1220 AA=A: IF AA>=3 PRINT'GOOD GRIcF !!" 
1225 IF Azi THEN 1270 

1230 PRINT"ARE ANY ONE OF THESE YOUR ";RS; 
1240 GOSUB 980 

1250 IF A$="YES" OR AS="Y¥" THEN V=1 

1260 IF V=i THEN 1390 

1270 PRINT"SO YOU'RE JUST PLAYING THE FIELD." 
1280 PRINT"ARE YOU SEARCHING FOR A ";RS; 
1290 GOSUE 980 

1300 IF A$="YES" OR A$="Y¥" THEN 1750 

1310 PRINT"YOU PLAN ON STAYING SINGLE"; 
1320 GOSUB 980 

1330 IF A$S="YES" OR A$S="Y¥" THEN 1750 

1340 PRINT" YOU'RE NOT GOING TO STAY SINGLE," 
1350 PRINT"BUT AT THE SAME TIME YOU'RE" 
1360 PRINT"LOOKING FOR A ";R8;" YOU" 

1370 PRINT"HAVE GOT TROUBLES !!" 

1380 GOTO 4600 

1390 PRINT"DO YOU FEEL YOU ARE CHEATING ON" 
1400 PRINT" YOUR ";R$;" AND YOURSELF"; 

1410 GOSUB 980 

1420 IF AS="YES" OR A$="¥" THEN 1560 

1430 PRINT"YOU DON'T ";FS; 

1440 GOSUB 980:IF A$="YES" THEN 1560 

1450 PRINT“ONE OF THOSE HARD-NOSED HUMANS, " 
1460 PRINT“HUH? I SUGGEST YOU NIP IT" 

1470 PRINT'AT THE BUD, EXPLAIN THINGS TO" 
1480 PRINT" YOUR ";R$;" AND FORGET THE OTHER" 
1490 PRINT W$;" BEFORE YOU GET DEEPER THAN" 
1500 PRINT"YOU ARE NOW... .";FS$ 

1305 PRINT 

1510 PRINT'DO YOU AGREE"; :GOSUB 980 

1515 IF KL=i THEN KL=0:GOTO 4700 

1520 IF A$="NO" OR A$S=s"N" THEN 1580 

1530 PRINT'I THOUGHT YOU'D SEE THINGS" 

1540 PRINT"MY WAY ";FS& 

1550 GOTO 4600 

1560 PRINT"YOU SHOULD FORGET THE OTHER" 
1570 GOTO 1490 

1580 PRINT"WHY DON'T YOU AGREE "; FS; 

1590 GOSUB 980:GOSUB 3740 

1600 PRINT"BECAUSE ";A$;,"?" 

1610 PRINT"HOW LONG HAS THIS BEEN" 

1620 PRINT"GOING ON ";F5& 

1630 PRINT"SELECT ONE: " 

1640 PRINT"“1> DAYS" 
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1630 
veeo 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
17350 
17355 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
18930 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
20190 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
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PRINT"2> WEEKS" 

PRINTICGS MONTHS" 

PRINT'4> YEARS" 

GOSUB 980:A=VAL(A$) 

IF°A=1i THEN DA$="DAYS":GOTO 1740 

IF A=2 THEN DA$="WEEKS":GOTO 1740 

IF A=3 THEN DA$S="MONTHS":GOTO 1740 
IF A=4 THEN DA$="VEARS":GOTO 1740 
PRINT: GOTO 1610 

IF JK=i THEN JK=0: RETURN 

IF KJ=1 THEN KJ=0:PRINT:GOTO 3640 
PRINT"DID THESE "“,WS;" FIND OUT" 
PRINT" ABOUT ONE ANOTHER ";F3; 

GOSUB 980 

IF A$S="VES" OR A$S="Y¥" THEN 1800 

GOTO 1850 

PRINT"THAT'S THE TROUBLE! JUST STICK" 
PRINT"TO ONE ";X$C(4);" FOR A WHILE." 
PRINT"THINGS WILL WORK OUT MUCH" 
PRINT"BETTER, YOU'LL SEE ";FS;"." 
GOTO 4600 

PRINT"THEY DIDN'T? SO THE TROUBLE" 
PRINT"'MUST BE WITH YOU. WHY IS IT" 
PRINT"NECESSARY FOR YOU TO SEE";AA 
PRINT WS;" AT ONCE? HAVE YOU TRIED" 
PRINT" JUST ONE"; :GOSUB 980 

IF AS="VES" OR AS="¥" THEN 1930 
PRINT" YOU HAVEN'T? TRY IT!" 

GOTO 1820 

PRINT" YOU HAVE ?.I ASSUME THAT YOU" 
PRINT"DIDN'T LIKE IT ",FS§,; 

GOSUB 980 

PRINT"! MIGHT SUGGEST YOU KEEP TO” 
ZeRND(6):1F Z=i THEN 1970 

PRINT“ YOURSELF FOR AT LEAST";Z; "WEEKS." 
GOTO 1820 

PRINT" ARE YOU AWARE WHAT ";X$(30? 
PRINT"WILL DO TO YOUR HEALTH"; :GOSUB 980 
IF A$S="“N" OR AS="NO" THEN 2060 
PRINT"YOU ARE? THEN YOU SHOULD TAKE” 
PRINT"STEPS TO STOP...NOW ";FS;"!11" 
GOTO 4600 

PRINT"THROAT CANCER, LUNG CANCER, A" 
PRINT"SHORTER LIFE EXPECTANCY. JUST" 
PRINT"TO NAME A FEW. TAKE A FEW" 
GOTO 2040 

IF M<=4 OR M=44 OR M=43 THEN RS=X$(4) 
:JJ=1:GOTO 2120 


2110 
2120 
2130 
2140 
2150 
2160 
2220 
2230 
2235 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2320 
2530 
2535 
2540 
2550 
2560 
2370 
2380 
2590 
2600 


R$=X$¢6) 
PRINT'WHAT IS THE SINGLE MOST WORD" 
PRINT"THAT WOULD BEST DESCRIBE YOUR" 


PRINT"TROUBLES WITH THIS ";R$; 

GOSUB 980 

ES=A$ 

PRINT"'NOT ENOUGH ";ES;" "; FS; 

GOSUB 980 

IF A$<>"YES" AND A$<>"RIGHT" THEN 2280 


PRINT"SO YOU ARE JUST NOT SATISFIED" 
PRINT“WITH THE WAY THINGS ARE GOING" 


PRINT"WITH YOUR ";E$; 

GOSUB 980 

PRINT"OH I SEE ";FS;". HAVE YOu" 
PRINT"DISCUSSED THIS WITH ",; 


IF JJ=1 PRINT"HER"; :GOTO 2320 
PRINT“HIM"; 

GOSUB 980 

IF A$S="N" OR A$="NO" THEN 2360 
PRINT"AND I ASSUME IT DIDN'T HELP." 
JK=1:GOSUB550:PRINT:GOSUB 1610:GOTO 
2430 

PRINT"TRY IT; THINGS JUST MIGHT" 
PRINT’WORK OUT FOR THE BEST. IF" 
PRINT"NOT, CONSULT WITH ME AGAIN" 
PRINT“AND I WILL GIVE YOU A" 

PRINT" DIFFERENT ANSWER TO YOUR" 
PRINT"TROUBLES, ";FS;"." 

KL=1:GOTO 1505 

PRINT"DURING THE PAST ";DA$;" HOW" 
PRINT'MANY TIMES HAVE YOU DISCUSSED" 
PRINT"THIS WITH "; 

IF JJ=1 PRINT"HER"; :GOTO 2480 
PRINT"HIM"; 

GOSUB 980 

A=VAL(A$) 

PRINT"DID ANY OF THOSE";A;"“TIMES HELP" 
PRINT"AT ALL ";,FS$; 

GOSUB 980 

IF A$="Y" OR A$="YES" THEN 2580 

IF A<=4 THEN 2580 

PRINT"I WILL HAVE TO TELL YoU TO" 
PRINT"SEEK SOME OUTSIDE HELP ON" 
PRINT"THIS MATTER...";F$:KL=1 
M=RND(2):1F X=1 GOTO 4600 ELSE 1505 
PRINT"CONTINUE THEN TO DISCUSS THIS" 
PRINT" PROBLEM OF “;ES;" WITH "; 

IF JJ=1 PRINT"HER" :GOTO 2620 
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2610 
2620 
2630 
2640 
26350 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 


2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
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PRINT“HIM" 

PRINT" IF YOU'VE PROGRESSED THIS" 
PRINT"FAR, THINGS WILL SURELY GET" 
PRINT" BETTER. ..";F§ 

GOTO 4600 

REM MONEY 

PRINT"DO YOU HAVE A STEADY "; 
PRINT X$(36);" "jFS; 

GOSUB 980 

IF A$="N" OR A$S="NO" THEN 2880 

IF WS¢(>X$(13) THEN 2770 

GOTO 2820 

PRINT"BUT YOU ARE IN ";X$(13);: 
GOSUB 980 

IF A$S="N" OR A$="NO" THEN 2990 
PRINT"HAVE YOU CONSIDERED A ";X$(14); 
GOSUE 980 

IF AS="¥" OR A$S="YES" THEN 3020 


PRINT" FINANCE CHARGES ARE HIGH, 


BUT" 


PRINT"ONE PAYMENT WOULD PROBABLY BE" 
PRINT" EASIER THAN SEVERAL TO DIFFERENT" 


PRINT" ONES 


WEP Sy My 


PRINT" CONSIDER A 


GOTO 4600 
PRINT" ARE 
GOSUB 980 
IF A$="N" 
PRINT"O.K. 
PRINT" BUT, 


IF AgS=a"y" 


YOU SHOULD" 
"|RSCL4) ZG". 


ee 


YOU WORKING PART-TIME"; 


OR AS="NO" 


THEN 3 
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“|FS;"YOU HAVE GOT A"; X$¢(36) 
YOU ARE ONLY WORKING" 

PRINT" PART-TIME. 
PRINT X$(13);:GOSUB 980 


OR A$="YES" 


THEN 


ARE YOU DEEPLY IN "; 


3090 


PRINT'SO I WILL ASSUME THAT YOU JUST" 
PRINT"NEED SOME EXTRA CASH..." 


GOTO 2790 
PRINT" YOU 
PRINT" ARE 
GOTO 2960 
PRINT"DID 
GOSUB 980 
IF A$=s"y" 
PRINT" YOU 
PRINT“ FOR 


HAVE A STEADY 


NOT IN 


THE 


OR AS="YES" 
"|RSC1Li05", 
"i XSC14d5", 


NEED 
A 


"yX8C41s;" 


",E8C13);" 


THEN 


",85°369;" 


you" 


o 


TURN YOU DOWN"; 


$250 
YOU APPLIED" 


THEY DIDN'T" 


PRINT"TURN YOU DOWN. WHAT'S THE BEEF"; 
GOSUB 980:JJ=1:GOTO 3250 


PRINT"SO THAT'S IT 
PRINT"'SEEK A HIGHER PAYING JOB 


GOTO 4600 


ear 


MP ycth 


3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
9250 
3260 
3265 
32790 
3280 
3290 
3300 
3305 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 


PRINT"ARE YOU DISABLED ";F%;:GOSUB 980 
IF A$="N" OR A$=s"NO" THEN 3200 
PRINT"'THAT EXPLAINS THE ";X$C(1i1); 
PRINT" TROUBLE." 

PRINT" I MIGHT SUGGEST YOU SEARCH FOR A" 
PRINT'NICE FINANCE ";X$¢41);" THAT WILL" 
PRINT“UNDERSTAND YOUR PROBLEM. TODAYS" 
GOTO 2820 

PRINT'I WILL HAVE TO ASSUME FROM ALL" 
PRINT“OF YOU ANSWERS THAT YOU ARE JUST" 
PRINT"A LAZY PERSON "“;FS;" LOOKING” 
PRINT“ FOR EASY CASH, GET A ";X$C36);,"!19" 
GOTO 4600 

PRINT'WAIT A FEW MONTHS, IF POSSIBLE" 
PRINT"AND REAPPLY FOR THE ";X$C(14> 

IF JJ=1 THEN JJ=0:GOTO 3290 

PRINT"THEY SHOULDN'T TURN YOU DOWN A" 
PRINT'SECOND TIME ",FS5;"." 

GOTO 4600 

IF M>=20 AND M¢(=22 THEN 2790 

IF M=25 OR M=26 THEN JX=1:GOTO 4270 
PRINT"HAVE YOU DISCUSSED THIS WITH" 
PRINT"THE ";X§C€25);" OR THE "“;X$(26); 
GOSUB 980 

IF A$S="N" OR A$="NO" THEN 3520 
PRINT"DID THIS SOLVE ANYTHING ";F$; 
GOSUB 980 

IF A$="N" OR A$S="NO" THEN 3400 

PRINT"IS THIS A DUPLEX";:GOSUB 980 

IF A$S="N" OR A$="NO" THEN 3540 
PRINT“HAVE YOU TALKED TO OTHER TENANTS" 
PRINT"ABOUT YOUR SITUATION";:GOSUB 980 
IF A$="N" OR AS="NO" THEN 3560 
PRINT"AND THIS, EVIDENTLY, DIDN'T HELP.“ 
PRINT" IF YOU HAVE IN FACT TALKED TO" 
PRINT'THE "“;X$(26);" ABOUT THIS" 

PRINT" AND NOTHING WAS SOLVED, I WOULD" 
PRINT"SUGGEST MAKING UP A SCHEME TO" 
PRINT" BREAK THE ";X$(27);" OR LEASE." 
PRINT"SEEK A DIFFERENT LOCATION WITH" 


PRINT'OTHER "jX$(24);" ";FSi"." 
GOTO 4600 

PRINT"DO SO NOW, THEN ANSWER THE NEXT" 
PRINT"SET OF QUESTIONS, ";F&:GOTO 3350 
PRINT*YOU LIVE IN A SINGLE ";X$(23) 
GOTO 3440 


PRINT"DO SO NOW, THEY MIGHT BE GOING" 
PRINT"THROUGH THE SAME THING. IF THIS" 
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3580 PRINT"FAILS, ";F§;" I WOULD" 

3590 COTO 3479 

9600 PRINT“WHY DO YOU FEEL "“;W8;" ";FS; 
3610 GOSUB 980 

$620 PRINT"I FELT THAT WAY ONCE, UNTIL I" 
3630 PRINT" RECEIVED A NEW RAM." 

$640 PRINT"DO YOU HAVE FRIENDS ";FS; 

3650 GOSUB 980 

3660 IF A$S="N" OR A$="NO" THEN 3830 

$670 PRINT"DISCUSSING DIFFERENT THINGS WITH" 
3680 PRINT"THEM SHOULD MAKE YOU FEEL SOME-" 
3690 PRINT"WHAT BETTER. HOW OFTEN HAVE you" 
3700 PRINT’ FELT THIS WAY ";FS$:JK=1 

3710 GOSUB 1630 

3720 IF A=z4@ THEN 3800 


3730 PRINT'SO IT HASN'T BEEN GOING ON TOO" 
3740 PRINT"LONG "“;F¢$;". WHAT IS THE ONE" 
$750 PRINT" THING THAT WOULD CHEER YOU MOST" 
3760 PRINT"AT THIS MOMENT"; :GOSUB 980 

$770 PRINT" THEN DO THIS NOW ";F6;". IE" 

3780 PRINT"ALL FAILS YOU CAN RETURN TO ME." 
3790 KL=1:GOTO 1505 

3800 PRINT'THAT IS A LONG TIME TO BE IN THIS" 
39810 PRINT"STATE OF MIND ";F$;". WHAT IS THE" 
3820 GOTO 3750 

9830 PRINT"DO YOU LIVE WHERE YOU COULD MEET" 
$8940 PRINT"SOME NEW FRIENDS ";F$;:GO8SUB 980 
$850 IF A$="N" OR A$="NO" THEN 3920 

3860 PRINT"WHY DON'T YOU GET OUT AND MEET” 
3870 PRINT"SOME NOW? IS SOMETHING ELSE" 

$680 PRINT'HOLDING YOU BACK"; :GOSUB 980 

3890 PRINT"OH, I SEE "“;F8:GOTO 3920 

3900 IF S$=s"MALE" THEN R$=X$(43):GOTO 1280 
3910 RSok$(45):JJ=1:GOTO 1280 

3920 PRINT"HOW ABOUT MOVING TO A" 

3930 PRINT"DIFFERENT LOCATION ";F¢;:GOSUB 980 
3940 IF AS="N" OR A$="NO" THEN 3980 

3950 PRINT"'I BELIEVE THINGS WILL WORK OUT" 
3960 PRINT" FOR THE BEST WITH THIS MOVE." 
3970 GOTO 4600 

3980 PRINT"ARE YOU TRYING TO BE CONTRARY ";F8; 
3990 GOSUB 980 

4000 PRINT"LET'S TRY A DIFFERENT APPROACH TO" 
4010 PRINT'THIS SUBJECT ";F%:GOSUB 550 

4013 IF M=43 OR M=45 THEN PRINT: GOTO 3640 
4020 KJ=1:GOTO 3900 

4030 IF M=37 OR M=38 THEN 4270 

4040 PRINT"WHAT'S THE TROUBLE WITH YOUR ";W8; 
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4050 GOSUB 980:GOTO 4540 

4060 IF W$=X$(36) THEN 4080 
4070 IF M=4i OR M=42 THEN 4120 
4080 PRINT" HAVE YOU ASKED FOR A RAISE IN PAY"; 
4090 GOSUB 9780 

4100 IF A$=m"N" OR AS="NO" THEN 4520 

4110 PRINT"I ASSUME YOU WERE TURNED DOWN." 
4120 PRINT"DO YOU BELONG TO A UNION ";FS$; 
4130 GOSUB 980 

4140 IF A$="N" OR A$="NO" THEN 4340 

4150 PRINT"DO OTHERS FEEL THE WAY YOU DO"; 
94160 GOSUB 980 

4170 IF A$="N" OR A$="NO" THEN 4440 

4180 PRINT"HAVE ALL OF YOU MET TO DISCUSS" 
4190 PRINT"A POSSIBLE STRIKE "“; FS; 

4200 GOSUB 980 

4210 IF A$="N" OR A$="NO" THEN 4440 

4220 PRINT"AGAIN, I ASSUME THINGS DIDN'T" 


4230 PRINT'TURN OUT WELL ";FS;". I WOULD" 
4240 PRINT"SUGGEST THAT YOU TRY AND LOCATE" 
4250 PRINT" ANOTHER “;X$(36);" "“j|FS;"." 


4260 GOTO 4600 
4270 PRINT'WHAT EXACTLY IS THE PROBLEM" 


4280 PRINT"WITH YOUR “;W$;" ";F$;:GOSUB 980 
4290 PRINT"HAVE YOU BROUGHT THIS TO HIS OR" 
4300 PRINT"HER ATTENTION, “;F$;:GOSUB 980 


4310 IF A$="N" OR A$="NO" THEN 4455 

4320 PRINT"YOU HAVE AND YOU FEEL YOU AREN'T" 
4330 PRINT"BEING TREATED FAIRLY";:GOSUB 980 
4335 IF JX=1 THEN 3400 

4340 PRINT"HOW LONG HAVE YOU BEEN EMPLOYED“ 
4350 PRINT"WITH THIS ";X$C(41);" “JES; 

4360 JK=1:GOSUB 1630 

4370 IF A=4 THEN 4390 

4380 GOTO 3100 

4390 PRINT" YOU'VE BEEN WITH THIS ";X$(41) 
4400 PRINT"FOR QUITE AWHILE. IF POSSIBLE" 
4410 PRINT"YOU SHOULD STICK WITH IT FOR AS" 
4420 PRINT"LONG AS YOU CAN ";F5 

4430 GOTO 4600 

4440 PRINT" YOU ARE ALONE ON THIS MATTER." 
4450 GOTO 3100 

4455 IF JX=1 THEN 3400 

4460 PRINT"SIT DOWN WITH YOUR ";X$(37);" 
4470 PRINT"DISCUSS THIS MATTER FULLY WITH" 
4480 PRINT“HIM OR HER.IF THEY DO NOT UNDER-" 
94490 PRINT"'STAND YOUR PROBLEM "“,F8;" I" 
4500 PRINT"WOULD SEEK ANOTHER JOB." 
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4510 
e329 
4530 
4540 
43550 
4560 
4370 
4580 
4390 
4595 
4600 
4610 
4620 
9630 
9640 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
9820 
4830 
94840 
4850 
9860 
4870 
5200 
9210 
9220 
3230 
3240 
5250 
3260 
3270 
5280 
3290 
$300 
3310 
5740 
9750 
3770 
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PRINT:GOTO 4120 

Se RS Er ee Se eC Ore oa 120 
PRINT"! ";:GOTO 4240 

FOR U=1 TO LEN(A$) 

IF MID§S(A$,U,4)=X$(37) THEN 4580 
IF MID$(A$,U,6)=X$(38) THEN 4590 
NEXT: GOTO 4060 
WS=MID$(A$,U,4):GOTO 4595 
WS=MID$ (A$ ,U,6) 

GOTO 4270 

GOSUB $350:PRINT 

GOTO 960 

PRINT 

PRINT"END OF PROGRAM..." 

END 

IF A$="N" OR A$="NO" THEN 3980 
PRINT" YOU DO AGREE,I FIGURED you WOULD" 


PRINT FS;". DO YOU ALWAYS TEND TO 
PRINT" AGREE WITH COMPUTERS"; 
GOSUB 980 


IF A$="N" OR A$="NO" THEN 3980 
PRINT"SO THEN YOU AGREE WITH COMPUTERS" 
PRINT"ALMOST CONSTANTLY ";FS;"." 
PRINT"WOULD YOU AGREE IF I SAID THAT" 
PRINT" IF YOU PRESS ANOTHER" 
PRINT"KEY, I COULD KILL THIS WHOLE" 
PRINT" PROGRAM, ";F$;:GOS5UB ?80 

IF A&$="N" OR A$="NO" THEN CLS:GOTO 4850 
PRINT"GOOD THING YOU SAID ";A$;"..." 
GOTO 4600 

FOR TT=1 TO 10000:NEXT 

PRINT"WE'RE YOU SCARED..... "VFS," ?" 
GOTO 4600 

REM WORDS / DATA BANK 

DATA GIRLS,GIRL,WOMEN,WOMAN, MEN, MAN 
DATA BOY,BOYS,BILLS,BILL,MONEY 

DATA FINANCIAL,DEBT,LOAN, TAX, TAXES 
DATA CAR,CARS,AUTO,HOUSE ,HOUSES 

DATA HOME, APARTMENT, APARTMENTS 

DATA LANDLORD, OWNER, CONTRACT, RENT 
DATA CIGARETTES, SMOKING, CIGARETTE 
DATA LONELY, ALONE, DEPRESSED, AFFRAID 
DATA JOB, BOSS,FOREMAN, SALARY, INCOME 
DATA COMPANY, INDUSTRY ,WIFE 

DATA GIRLFRIEND, HUSBAND, BOYFRIEND 
REM SHORTEN STRING 

USsA$ :A$="" 

FOR I=1 TO LEN(US> 


$760 IF MID$(US,I,2)="I " THEN 5800 
5790 AS=AS+MID§(US,1I,1):NEXT: RETURN 
3800 AS=A$+"YOU" : Telet 

3810 GOTO 5780 

3820 GOSUB 980:A=VAL(A$) 

3830 REM REDO STRING CONTENTS 

9840 R$=xX#(45) 

$850 GOTO 1220 


Variables and Strings 


N§ - First/last name of user 

S$ - To differ between male and female 

A$ - Used throughout the program for string entrys (input) 

P§$ - Entry of troubles 

W - Word count, number of words in sentence (P$) 

Y - Beginning of program, for use of periods in sentence 

F§ - First name of user 

TI - Time loop (pause) during program run 

X$(N) - Data list of Words that computer can react to from the data 
statements. 

I - Used as a counter 

Q - Used in conjunction with A$(N) for the separation of words in a 
sentence 

L - Number of letters in each word (LEN amount) 

A(N) - Total number of letters per word 

Z - Total count of words 

W$ - Singled-out word from the beginning sentence that matches a 
word from the data list 

M - Location of a particular word from the data list 

A - VALue of A$ 

R§$ - Singled-out word from the data list 

KL - 0/1 variable for messages, comparison 

DA$ - Length of troubles, i.e., days, weeks, months, or years 

JK, KJ - 0/1 variable (true/false comparison) 

Z- A random amount for print staterents 

JJ - Also for print statements 

E$ - Contents of A$ (selected areas) 

X - For random print statements 

JX - 0/1 variable 

U - Used in the for-next loop (A$) that examines the singled-out 
word 

TT - Secondary time loop (pause) for end 
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U$ - Contents compared, for changing “I” to “YOU” for print 
messages 


Explanation of the Program Lines 


Lines 10-145 clear memory for string storage and display brief 
instructions. 

Lines 150-160 request the input of the user’s first and last 
name. 

Lines 170-210 begin the actual program if A$ equals “Y” 

Line 320 contains the dimension statements. 

Lines 325-465 are used for the input of P$ (troubles sentence), 
the determination of the number of words in that sentence, and the 
display of messages if there are too many words (line 440) or too few 
(line 445). 

Lines 490-540 separate N$ to set F$ equal to the first name of 
the user. 

Lines 550-570 is the time loop (pause). 

Lines 580-590 read the data list and place the words in the X$ 
array. 

Lines 600-780 separate each word in the sentence entered by 
the user so that the individual words can be compared with the 
words in the data list. 

Lines 790-970 compares each word in the sentence with those 
in the data list, X$(N). If no match is located, the program will 
branch to the print statements in lines 930-960. 

Line 980 is a routine for the entry of A$ used by GOSUB 
statements throughout the program. 

Line 990 enables the user to enter another trouble sentence. 

Line 1000 terminates the program if A$ is equal to “NO.” 

Lines 1010-1120 direct the program flow to the appropriate 
line depending on which word in the data list matches a word in the 
sentence entered by the user. 

Line 1190 causes a branch to a different set of print statements 
if any of the conditions are met. 

Line 1200 is the beginning of all the print statements, ques- 
tions, and possible solutions. 

Lines 1205-4530 are all the print statements, inputs, and solu- 
tions, depending on the word(s) selected (as they are matched with 
computer’s data list) 

Lines 4540-4595 alter words such as him, her, husband, and 
wife according to the contents of W$ 
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Lines 4600-4640 terminate the program if A$ is not equal to 
“Y” or “YES”, 

Lines 4700-4870 are extra print statements for use when the 
user becomes contrary or tries to confuse computer. 

Lines 5200-5310 contain the data elements, which are the 
words that are compared to the individual words in the user’s 
trouble sentence. 

Lines 5740-5810 redo parts of sentence for the output of YOU 
as opposed to I. 

Lines 5830-5850 changes the contents of R$ to match print 
output. 
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GENERAL STORE 


So you think this is ee a simple program to test your addition? 
Guess again! Sure, you'll have to be good at arithmetic and you'll 
have to add quickly! The computer will give you products (two at 
the first) and their prices. Then you'll have to enter the totals of the 
prices. All of this will happen in limited amount of time so, if you 
can’t think fast...don’t try this program! Note that the IBM version 
of this program is included in Appendix A, and the Apple version in 
Appendix B. 


Sample Run 


GENERAL STORE 

YOUR INSTRUCTIONS ARE SIMPLE AND 
STRAIGHT-FORWARD: | WILL GIVE 

YOU A LIST OF DIFFERENT ITEMS 

AND THEIR PRICES. YOU IN TURN 

WILL ENTER THE TOTAL OF THE 

ITEMS. THAT IS, IF | SAY $2.50 

MILK , THEN | SAY $0.80 BREAD, 

YOU MUST THEN ENTER THE TOTAL 
OF $2.50 + $0.80 ($3.30). ALL 

YOUR ENTRIES WILL BE THROUGH 
INKEY$, DON’T PRESS ENTER AND DON’T ENTER THE 
DOLLAR SIGN. 

PRESS A KEV... 

ENTER ONLY THE NUMBERS AND THE 
DECIMALS. AFTER 10 ITEMS WE WILL 
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( START ) 


DIM 
STATEMENTS 


INSTRUCTIONS 


P NUMBER 
OF PLAYERS 


FIRST ee 


Tae BNO 


| | 


aay PLAYER 
rota es | READ DATA 


PRINT AMT 
ITEM 


ENTRY BY 
INKEYS 


= 


KK +t 


Flowchart for General Store. 


TAKE A SHORT BREAK: THEN | WILL 
GIVE YOU 10 MORE. WE WILL QUIT 
ONLY AFTER 30 ITEMS HAVE BEEN 
COMPLETED. YOUR SCORE WILL BE 
DETERMINED BY YOUR TOTAL. IF 
CORRECT, THE TOTAL IS YOUR SCORE. 
IF INCORRECT, YOUR TOTAL WILL BE 
A MINUS OF ALL ENTRIES MISSED. 

| SHOULD ALSO TELL YOU, THAT 

YOU WILL HAVE A TIME LIMIT IN 
WHICH TO ENTER THE TOTAL, SO LAY 
DOWN THE PENCIL AND CALCULATOR. 


SORT POINTS 
HIGH/LOW 


MESSAGE - 
TOTALS 


STOP 
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PRESS ANOTHER KEY... 
HOW MANY PLAYERS? 2 


ENTER 2 PLAYERS FIRST NAMES 
MAX 

MAY 

| WILL SELECT EACH PLAYER IN 
A RANDOM FASHION, THERE WILL 
BE NO SET ORDER OF PLAYERS. 


MAX YOU WILL NOW PLAY. 
PRESS THE ENTER KEV... 


Program Listing 


10 REM PROGRAM TITLE: GENERAL STORE 

20 CLS:CLEAR $00:PRINT TAB(10); 

30 PRINT'GENERAL STORE": RS="NEXT" 

90 RANDOM:DIM N$(15),16¢31),1¢31) 

50 DIM L(31),PR(31),TP(15):REM INSTRUCTIONS 

60 PRINT"YOUR INSTRUCTIONS ARE SIMPLE AND" 

70 PRINT"STRAIGHT-FORWARD: I WILL GIVE" 

80 PRINT’ YOU A LIST OF DIFFERENT ITEMS" 

90 PRINT"AND THEIR PRICES. YOU IN TURN" 
100 PRINT"WILL ENTER THE TOTAL COST OF THE” 
110 PRINT" ITEMS. THAT IS, IF I SAY $2.50" 
120 PRINT"MILK, THEN I SAY $0.80 BREAD" 

130 PRINT" YOU MUST THEN ENTER THE TOTAL" 
140 PRINT"OF $2.50 + $0.80 ($3.30). ALL" 
150 PRINT" YOUR ENTRIES WILL BE THROUGH" 

160 PRINT" INKEY§S. DON'T PRESS ENTER AND” 
170 PRINT"DON'T ENTER THE DOLLAR SIGN" 

180 PRINT: PRINT" PRESS A KEY..." 

190 GOSUB 3000: CLS:G$="84,888" 

200 PRINT" ENTER ONLY THE NUMBERS AND THE" 
210 PRINT"DECIMALS. AFTER 10 ITEMS WE WILL" 
220 PRINT"TAKE A SHORT BREAK. THEN I WILL" 
230 PRINT“GIVE YOU 10 MORE. WE WILL QUIT" 
240 PRINT"ONLY AFTER 30 ITEMS HAVE BEEN" 
250 PRINT"COMPLETED. YOUR SCORE WILL BE" 
260 PRINT"DETERMINED BY YOUR TOTAL, IF" 

270 PRINT"CORRECT THE TOTAL IS YOUR SCORE." 
280 PRINT’ IF INCORRECT, YOUR TOTAL WILL BE" 
290 PRINT"A MINUS OF ALL ENTRIES MISSED." 
300 PRINT"’I SHOULD ALSO TELL YOU THAT" 

310 PRINT"YOU WILL HAVE A TIME LIMIT IN" 
$20 PRINT'WHICH TO ENTER THE TOTAL, SO LAY" 
330 PRINT" DOWN THE PENCIL AND CALCULATOR." 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
425 
430 
440 
450 
460 
470 
480 
490 
300 
$10 
920 
330 
340 
$50 
560 
370 
380 
590 
600 
610 
620 
625 
630 
640 
645 
650 
660 
665 
670 
680 
690 
700 
710 
720 
725 
730 
735 
740 
730 


REM BEGIN 

PRINT" PRESS ANOTHER KEY..." 

GOSUB 3000:CLS 

INPUT" HOW MANY PLAYERS (1-10)";P 

IF P<1 OR P>10 THEN 370 

PRINT" ENTER";P;"PLAYER'S FIRST NAMES" 
REM NAMES 

AP=15538:FOR [=i TO P 

INPUT NS CI) NCI) =I: NEXT: N=1:AA=176 
AQ=AP+64:I1F P=i THEN Y=i:N=2:GOTO 470 
PRINT“I WILL SELECT EACH PLAYER IN" 
PRINT"A RANDOM FASHION. THERE WILL" 
PRINT" BE NO SET ORDER OF PLAYERS." 
GOSUB 2800:PRINT:REM PLAYER 

IF EE=1 THEN 1530:REM FINAL 

QS=N$(Y) :TA=0:J1I=0 

PRINT Q@$;" YOU WILL NOW PLAY." 
PRINT"“PRESS THE ENTER KEY..."; 

INPUT X$: PRINT 

PRINT"HOW FAST IS YOUR ADDITION "; 
PRINT Q$;" 273" 

REM READ ALL ITEMS / PRICES 

FOR I=1 TO 30:READ I$¢(1):L¢I)=1I:NEXT 
FOR I=1 TO 30:READ PR(I):NEXT:GOTO 2500 
D=I-1:DD=(D/3) :Usi: DS="Sh#. ##" FP Sa gs 
REM SELECT ITEMS RANDOMLY 

IF U>)DD THEN PRINT: PRINT:GOTO 1100 
X=RND( 30) 

IF L(X)=0 THEN 600:REM USED 
T=X:PR=ePR(T) :TS=1$(T) 

IF Usl THEN YU=PR 

TA=TA+PR:REM TOTAL AMOUNT/CURRENT ITEM 
TAS$=STRS$(TA):REM TOTAL TO STRING 

IF V=i THEN GOSUB 2900 

IF Usi THEN CLS ELSE IF U)1 THEN 670 
PRINT TABCO)"PRICE" TAB(25) "ITEMS"; 
PRINT TAB(50) "TOTALS" 

PRINT TABCO) USING D$;PR; 

PRINT TAB(25) T$ 

IF U¢=1 THEN 710 

RR=1:REM CONTINUE PRINT / ENTRIES 
L¢(X)20:UsU+1:KK=0:NE=1 

IF RR<>1 THEN 580 

PRINT@AA, FS$ 

X$=INKEYS:IF KK¢(=5 AND X$(>"" THEN 1040 


IF X$="." THEN 880 
IF X$="" THEN 760 
GOTO 800 


95 


760 KK=KK+1:REM TIME EXPIRED ? 

770 IF KK>=j175 THEN W$="":GOTO 1000 
780 POKE AF,i45:GOTO 736 

800 REM ENTRY 

810 POKE AP,ASC(X$):TY(NE) =VAL(X$) 
820 AP=AP+1:REM POKE LOCATION 

830 NE=NE+1:REM NUMBER ENTRY 

840 IF NE=LEN(TA$) THEN 860 

850 GOTO 730 

860 GOTO 910:REM ALL ENTRIES IN 

880 REM DECIMAL 

890 POKE AP,ASC(X$) 

900 TY(NE)=1000:GOTO 820 

910 REM COMPILE ENTRIES 

920 V=NE-1:I1F V#9 THEN V=10 

930 FOR I=#1 TO V 

940 IF TYCI)=1000 THEN 970 

950 WS=WS+STRS (TY CI)? 

960 TY(I)=0:NEXT:GOTO 990 

970 Wo=WSe4"." 

980 GOTO 960 

990 W=VAL(WS$) :WS=sSTRS$(W) : 

1000 IF wWS<>TA$ THEN PI=PI+PR;JI=JI+1 
1005 IF U=3 AND J1¢)0 THEN PI=PI+YU: JI=JI+1 
1008 IF PEEK(AP)=143 THEN POKE AP, 32 
1010 POKE AP+1,32:WS="":AA=AA+64 

1020 AP=AQ: AQ=A0+64 

1030 GOTO 590:REM ANOTHER ITEM 

1040 REM SLOW DOWN A LITTLE 

1050 POKE AP, 32 

1060 GOTO 730 

1100 REM POINTS / PLAYER ADVANCE 

1110 IF PI<>0 THEN 1200 

1120 FOR I=1 TO LEN(TA$> 

1130 IF MIDS(TA$,I,1)="." THEN 1150 
1140 KS=K$+MID$(TA$,1,1) 

1150 NEXT 

1160 K=VAL(K$) 

1170 GOSUB 1430 
1180 TP(Y)=TPCY)+K 
1190 GOTO 1320 
1200 REM MISSED ITEM(S) 

1210 TA$=STR$(PI):FOR I=1 TO LEN(TAS) 
1220 IF MID$(TA$,1I,1)="." THEN 1240 
1230 K$=K$+MIDS(TA$,I,1) 
1240 NEXT: K=VAL(K$):GOSUB 1430 
1250 TP(Y)=TP(Y)-K 

1260 PRINT'YOU HAVE MISSED TOTALS ON"; JI 
1270 PRINT"ITEMS “;Q@Q$;". THESE ITEMS CAME" 
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1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1310 
1320 
1530 
135395 
1540 
1350 
1560 
1570 
1580 
1390 
1595 
1600 
1610 
1650 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


PRINT"'TO A TOTAL OF $";TA$;". YOU ARE" 
PRINT’MINUS THAT NUMBER, YOUR SCORE" 
PRINT"IS NOW: "“;USING G$;TPCY) 

GOTO 1350 

PRINT"YOU HAVE SUCCESSFULLY ENTERED" 
PRINT“ALL TOTALS ";Q$;", YOUR SCORE 
PRINT"IS NOW: “;USING G$;TP(Y) 

K=O: JI=0:PI=0:TA$=""7K$=e"" 
Usi:DisD1i+10:IF Dis20 THEN R$="LAST" 
AP=15538:AQ=AP+64:AA=176:RR=0: PRINT 

IF Di>=30 THEN 1500 

PRINT"TAKE A SHORT BREAK, THEN WE'LL" 
PRINT“ATTEMPT THE ";R$;" SET OF ITEMS." 


FOR I=1 TO $000:NEXT: PRINT 

GOTO 380 

REM AMOUNT TIMES 10 

IF MIDS(TA$,LEN(TA$)-1,1)="." THEN 1480 
IF LEN(CTA$)=2 OR LEN(TA$)=3 THEN 1470 
RETURN 

K=K*100:GOTO 1460 

K=K*10 

GOTO 1460 

REM ANOTHER PLAYER 


PRINT: PRINT: RESTORE 
Diz0:R$="NEXT":GOTO 460 

REM HIGH POINT 

IF P=1 THEN TP=TP(1i):GOTO 1720 
MM=0:VV=1:N=N-1 

IF TP(VV)>=TPC(VV4+1) THEN 1590 
TP=TPC(VV) : TP(VV) =TP(VV+1) 
TP(VV+1)=TP:NS=N5 (VV) 

N$ (CVV) =NS (CVV41):NS (VV41)=N$5 :>MM=1 
IF VV+1>=N THEN 1600:REM FINAL 
VV=VV+1:GOTO 1550 

REM MM=i -- NOT IN ORDER 

IF MM=1 THEN 1540 

REM POINTS COMPILED (FINAL) 

REM PRINT RESULTS 

PRINT"ALL HAVE PLAYED...." 
PRINT" PRESS A KEY FOR RESULTS ON SCORE" 
GOSUB 3000 

CLS: Ie1 

REM SINGLE PLAYER 

IF P=1 THEN 1850 

PRINT"THE TOP WINNER: ";N8(I) 
PRINT"WITH A FINAL POINT SCORE OF: "; 
PRINT USING G$;TPCI> 

PRINT" OTHER PLAYERS AND SCORES:" 
FOR X=I+1 TO P 
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1820 
i830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
2500 
2510 
2920 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2800 
2810 
2820 
2830 
2840 
2850 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
3000 
3010 
3020 
3030 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
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PRINT N§¢X);" HAD: ";USING G$; 
NEAT 

GOTO 1880 

PRINT Q@$;" YOUR TOTAL (FINAL) 


PRINT" FOR GENERAL STORE I[8: "; 


PRINT USING G$;TP 

PRINT 

PRINT" END OF PROGRAM RUN." 
END 

REM INFLATION / DEFLATION 
FOR I=i TO 30 
DE=RND( 10> :DF=CSNG(DE/10) 
DG=RND(2) 

IF DG=2 THEN 2590 

REM INFLATION 

PRC I)=PRC1I)+DF 

NEXT 

GOTO 570 

REM DEFLATION 
PR(CI)=PRCI)>-DF 

IF PR(CI)<=0 THEN 2560 
GOTO 2570 

REM RANDOM PLAYER 

IF N>P THEN EE=1: RETURN 
Q=RND(P> 

IF N(Q)=0 THEN 2820 
¥=Q:N(Q)=0 

N=N+i:RETURN 

REM EXTRA MESSAGE 

PRINT 

PRINT"ADD ALL ITEMS TOGETHER" 


PRINT" BEFORE INPUTTING AMOUNT. 


IF Di>=10 THEN 2970 
FOR TL=1 TO 2800:NEXT 
CLS: RETURN 


TP(X) 


SCORE" 


PRINT'START WITH PREVIOUS TOTAL." 


GOTO 2950 

REM INKEYS 
X$=INKEYS§ 

IF X$=""" THEN 3010 
RETURN 


REM DATA / PRICE - ITEM COMBINED 


DATA MILK, BREAD,MEAT 

DATA MEAT,MEAT, FISH 

DATA CANDY, CANDY, CANDY 
DATA VEGETABLES, VEGETABLES 
DATA POULTRY, POULTRY 

DATA LETTUCE, ONIONS 


4070 DATA SPINACH, CIGARETTES 

4080 DATA CIGARS, BACON 

4090 DATA TABLETS (PAPER), PENS 

4100 DATA BATTERIES, BATTERIES 

4110 DATA FURNITURE POLISH 

9120 DATA CARPET CLEANER 

4130 DATA HAND SOAP,HAND SOAP 

4140 DATA CRACKERS ,MEATS 

4150 DATA SODAS (CASE) 

4160 REM PRICES OF ITEMS 

4170 DATA 2.30,0.89,1.98,3.35,5.50,3.65 
9180 DATA 0.35,2.05,0.54,0.39,0.45,3.44 
4190 DATA 1.99,0.59,1.01,0.79,7.05,5.74 
4200 DATA 4.66,1.23,2.44,2.66,0.98,1.97 
4210 DATA 2.41,0.99,0.99,1.32,8.99,4.32 


Variables and Strings 


G$ - Used for the printing of scores 

P - Number of players (1-10) 

AP - Poke location for printing 

N§(N) - First names of players 

N - Number of players, counter 

AA - Print @ locations 

AQ - Same as AP, but for advancing to a new area 
Q$ - Selected player 

TA - Total amount, up to and including current item 
JI - Counter for incorrect price entry 

I$(N) - All items 

PR(N) - Price of above items 

D - Amount of I after data is read 

DD - Total items 

U - Counter for items 

D§$ - For print of prices 

X - Random selection of an item 

L(X) - Delete the item X, after selection 

T - Same as variable X (random) 

PR - Set to the price of the current item, PR(T) 

T$ - Same as the 1$(T) item, used in conjunction with JI 
YU - Price of the first item in each set 

TA$ - STR$ of amount TA 

KK - Used for timing responses 

NE - Used for TY (subscripted) for each numeral entry 
TY(N) - Explained in the line above 

WS - STR$ content of the TY) cost entry 
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PI] - For incorrect price entry 

K§ - Total cost of 10 items 

K - VALue of K§, above 

TPCY) - Total score for current player 

VV - Used for sorting high to low score list (if more than one has 
played) 

MM - 0/1, true/false variable. If MM= 1, the list of players ar- 
ranged according to their scores is not correct in order. Likewise if 
MM = 0 the list is correct 

DE - Selects a random amount from 1-10 for inflation or deflation of 
current prices 

DF - Insures that the amount above will be a “cent” increase of 
decrease 

DG - Determines whether the current price in the list will be 
inflated or deflated 

Q - Randomly selected player 


Explanation of the Program Lines 


Lines 40-50 dimension the strings and variables. 

Lines 60-350 display the instructions for piay. 

Line 360 contains a GOSUB to line 3000, which contains an 
INKEY$ routine that line 360 uses to exit the instructions. This 
routine is used throughout the program 

Lines 370-420 let the user enter the number of players and 
their first names. 

Lines 410,420, and 425 also initialize some variables for print@ 
(AP) and poke (AP and AQ) locations. 

Lines 430-460 print a message, and then select one player 
randomly using a GOSUB to lines 2800-2850. If only one person is 
playing, P=1, and line 425 causes the random selection of a player to 
be skipped. 

Line 470 if EE=1, all players have had their turn. The program 
will branch to the final messages beginning at line 1530. 

Line 480 sets the contents of Q$ to the name of the player 
selected, N$(Y). The variables TA and JI are set or reset to 0 for 
totaling and scoring purposes. 

Lines 490-530 are print messages for the current player. 

Lines 540-560 read all data items and prices. The subscripted 
variable L(D is used to delete a particular item after it has been 
used. After all items I$(I) and prices PR(I) are read, the program 
will branch to lines 2500-2620. These lines are used for inflation or 
deflation of the 30 prices. This will insure that the user cannot 
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memorize any price because each will change with each player or 
each program run. Line 2520 randomly selects a number from 1-10 
(DE). This number is then divided by 10 and set to a cent amount, 
DF = C(SNG(DE/10). The CSNG simply insures, that DF is a 
single-precision number. Line 2530, where DG = RND(2), will de- 
termine whether this amount is to be used to increase or decrease 
the current price. If DG is equal to 2, the current amount will be 
decreased by DF (lines 2590-2620). If the amount of PR(D is less 
than or equal to 0 (zero), the program will branch back and use DF to 
increase PR(D) in line 2560. The current price will always be a 
positive amount, even if it’s only one penny. 

Line 570 sets more variables and strings: DD for the total 
number of items (D) divided by 3; (the program presents 3 sets of 10 
items) U, a counter for the items; and D§$ and F$ for print statements 
of prices. | 

Lines 580-610 select one item at random if U is not greater than 
DD (line 590) and the item has not been omitted (line 610). 

Lines 620-640 select an item and the total price of the item 
selected. “* 

Lines 645-650 are used primarily for print statements if U is 
equal to one (line 660 and 665). 

Line 670-680 print the price and the item selected. 

Lines 690-700 insure that two items are selected if U<=1, so 
that the user will have a total to enter. 

Line 710 deletes the selected item, increases the item counter, 
U, sets the timer counter, KK, and sets variable NE to 1 for the 
contents of key entriés. 

Line 720 branches back to line 580 if RR is not equal to 1, as 
explained in lines 690 and 700 above. 

Line 725 prints the dollar sign at AA, so the user will know the 
timing has begun. 

Lines 730-770 compose the INKEY$ routine for user entries. 
The variable KK is increased by 1 if no key closure is detected. The 
argument at line 730, if KK< = 5 and X$< >“”, will insure that the 
beginning of a new entry is cleared (lines 1040-1060) in case a key is 
closed when KK>=175. This way, the amount will not be carried 
over to the next item. If the decimal key is pressed (line 735), the 
program will branch to line 880; that ASCII value will be poked onto 
the video, and that part of the price entered will be equal to 1000, 
TY(NE). Ifa numeral key is pressed, the program will branch to line 
800. That numeral will be poked at AP and TY(NE) will be equal to 
the value amount of X$. With this function and the above the poke 
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location is increased by 1 and the variable NE is also increased by 1. 
Line 840 tests the value of NE. If it is equal to LEN(TA$), the 
required number of keys have been pressed, and the program 
branches to line 910. 

Line 780 pokes CHR$(143), a graphic block, at the current 
location of the price entry. If no numeral or decimal is pressed, lines 
910-980 will compile all the keys closed, and place them in a string 
(W$) along with the decimal (line 940), if TY@)=1000. 

Line 990 sets W to the VALue of W$. W$ is then changed to the 
STR$§ amount of W. 

Line 1000 increases the variable PI to PR (the price of the 
item) if W$ is not equal to TA$. JI will then be increased by 1. 

Line 1005 is used to include the price of the first item in the 
current set (YU), if the total entered to that point is incorrect and 
U= 3 and JIl< > 0. 

Line 1008 clears the cursor block (143) from the current line 
before advancing to the next item. 

Line 1010 clears the contents of W$ (for another item), ad- 
vances the print @area by 64 (AP=AQ), and increases AQ by 64 for 
the next poke location. 

Lines 1020-1030 start the process all over by going back to line 
590 to select another item. If the condition is met at line 590 (10 
items have been completed), the program will branch to line 1100. 

Line 1110 checks the amount of PI. If it is not equal to 0 (zero), 
the program will branch to the incorrect entries routine. 

Lines 1120-1190 are used for correct entries. TA$ is torn apart 
and placed in another string , K$. If the decimal is encountered (line 
1130) the program will branch to the next statement in line 1150. In 
line 1160 K will assssume the amount of K$, through the VAL func- 
tion, 

Line 1170 contains a GOSUB to line 1400, which will again 
check the contents of TA$ (lines 1440 and 1450). If either condition 
is met, the variable K will be multiplied by the appropriate amount, 
for the addition of trailing zeros. 

Line 1180 increases the total points, TP(Y), by the value for 
each player. 

Line 1190 then branches to line 1320 as explained below. 

Lines 1200-1250 are used for missed items. They function in 
the same manner as lines 1120-1190, but the value of each item 
missed is subtracted from the player's total. The amount returned 
will be a negative number. 

Lines 1260-1300 are the print messages displayed when items 
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have been missed. The number of incorrect items (JJ), the total 
price, and the player’s current score are displayed. 

Lines 1320-1340 are the print messages displayed when no 
items have been missed. The player’s score is displayed. Note that 
all items must have been entered correctly or the player will 
receive a negative score, even if only one was missed. 

Lines 1350-1420 begin the cycle again for the next 10 items, if 
the condition is not met at line 1380. Variables are cleared and 
strings are set to null. 

Lines 1430-1490 are explained above. 

Lines 1500-1520 restore the data list for another reading be- 
fore the selection of the next player, if any remain. 

Lines 1530-1610 sort the scores, along with the appropriate 
players’ names, from high to low if there is more than one player 
(line 1535). If MM is equal to 1 in line 1600 and 1610, the list is not 
perfect and the sort will begin again. Otherwise the program will 
continue to line 1650. 

Lines 1650-1900 print all the players’ names and their ac- 
cumulated scores and terminate the program. 

Lines 4000-4210 contain the data items and their correspond- 
ing prices. 
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RESPECT YOUR COMPUTER 


Do you have respect for your computer? Do you believe that it is 
telling you the truth all of the time ?,You’re im for a surprise then! 
This is an excellent program to try on that person or friend who 
thinks he or she is always right or who feels they never make a 
wrong guess. Keep all heavy objects away’ from your computer 
when running this program; your friends might be tempted to bash 
the CPU in! 


Sample Run 


NATURALLY YOU SHOULD HAVE SOME 
RESPECT FOR YOUR COMPUTER, EVEN 
THOUGH IT IS ONLY A MACHINE. se 
THIS MACHINE WILL NOW TEST YOUR ee 
PATIENCE, TO SEE JUST HOW MUCH 
RESPECT YOU DO HAVE FOR THIS 

MACHINE. YOU SEE, THIS 

IS ONE GAME THAT YOUR COMPUTER 

WILL STAKE ITS CIRCUITS ON! 

YOU CANNOT, AND WILL NOT 

BEAT IT !!! 
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PRESS ENTER...PLEASE? 


IF YOU ARE READY, WE WILL NOW 
BEGIN, | HAVE SELECTED A NUMBER 
BETWEEN 1 AND 10, TELL ME 

THE NUMBER? 4 

YOUR NUMBER: 4 

SORRY. 


NUMBERS GUESSED: 4 
GUESS AGAIN... 

THE NUMBER? 1 

YOUR NUMBER: 1 
SORRY. 

NUMBERS GUESSED: 4 1 
GUESS AGAIN... 

THE NUMBER? 9 

YOUR NUMBER: 9 
SORRY. 


NUMBERS GUESSED : 419 
GUESS AGAIN... 


THE NUMBER? 3 

YOUR NUMBER: 3 

SORRY. 

NUMBERS GUESSED: 4 1 9 3 
GUESS AGAIN... 

THE NUMBER? 10 

YOUR NUMBER: 10 

SORRY. 


NUMBERS GUESSED : 4 193 10 
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GUESS AGAIN... 

THE NUMBER? 8 

YOUR NUMBER: 8 

SORRY. 

NUMBERS GUESSED: 4193108 
GUESS AGAIN... 

THE NUMBER? 7 

YOUR NUMBER: 7 

SORRY. 

NUMBERS GUESSED: 41931087 
GUESS AGAIN... 

THE NUMBER? 6. 

YOUR NUMBER: 6 

SORRY. 

NUMBERS GUESSED: 419310876 
GUESS AGAIN... 

THE NUMBER? 2 

YOUR NUMBER: 2 

SORRY. 

NUMBERS GUESSED: 4193108762 
GUESS AGAIN... 


NEVERMIND... 
THE NUMBER | HAD SELECTED WAS: § 


YOUR GUESSES WERE: 4193108762 
LET’S TRY AGAIN... 
OF THE 9 GUESSES YOU MADE, 
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NONE OF THEM MATCHED THE 
NUMBER | HAD SELECTED..... 


STOP 


This is not a complete run. 


START 
—~4 


PRINT 
INSTRUCTIONS 


INPUT 
N 


Y 
PRINT COMPUTER 
NUMBER 
MESSAGE 


MESSAGE 


CHANGE 
VALUE OF X 


MESSAGE 


Flowchart for Respect Your Computer. 


107 


Program Listing 


100 REM PROGRAM TITLE: RESPECT YOUR COMPUTER 
130 CLS 
200 RANDOM: P=1:Q=1:X=10:1F WW=i THEN 900 
250 PRINT"NATURALLY YOU SHOULD HAVE SOME" 
300 PRINT"RESPECT FOR YOUR COMPUTER, EVEN" 
350 PRINT"THOUGH IT IS ONLY A MACHINE." 
400 PRINT'THIS MACHINE WILL NOW TEST YOUR" 
450 PRINT" PATIENCE TO SEE JUST HOW MUCH" 
500 PRINT"RESPECT YOU DO HAVE FOR THIS" 
950 PRINT'MACHINE. you SEE, THIS" 

600 PRINT"IS ONE GAME THAT YOUR COMPUTER" 
6530 PRINT"WILL STAKE ITS CIRCUITS ON" 

700 PRINT'YOU CANNOT, AND WILL NOT‘ 

750 PRINT" BEAT IT !{!i" 
800 PRINT 
850 INPUT" PRESS ENTER...PLEASE"; XX 
900 CLS 

950 PRINT"IF YOU ARE READY, WE WILL NOW" 

1000 PRINT"BEGIN. I HAVE SELECTED A NUMBER" 
1050 PRINT"BETWEEN 1 AND"; X;". TELL ME" 
1100 INPUT’THE NUMBER";N 

1150 IF N<i OR N)X THEN 1100 

1200 PRINT’ YOUR NUMBER: ";N 

1250 FOR I=1 TO 800:NEXT 

1300 PRINT CHR$(83);,CHRS$(79) ,CHRS$ (82), 

1350 PRINT CHR$(82);CHRS$(89);CHRS (46) 

1400 PRINT 

14350 AtCP)d=N 

1300 PRINT'NUMBERS GUESSED:",; 

1550 FOR I=1 TO P: PRINT ACI); :NEXT 

1600 PRINT: P=P+1 

1650 PRINT"GUESS AGAIN..." 

1700 IF P}=X THEN 1906 

1800 PRINT 

1850 GOTO 1100 

1900 PRINT 

1950 PRINT'NEVERMIND..." 

2000 PRINT"THE NUMBER I HAD SELECTED WAS:", 

2030 A=xK 

2100 FOR I=i TO P-1 

2150 IF A< ACT) THEN NEXT:GOTO 2250 

2200 A=A-1:GOTO 2100 

22530 REM PRINT NUMBER 

2300 PRINT A: PRINT 

2350 PRINT'YOUR GUESSES WERE:", 

2400 FOR I=1 TO Pi 
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24350 
2500 
2550 
2600 
2650 
2700 
2750 
2800 
2850 
2900 
3000 
3050 
3100 
3150 
3200 
3250 
3300 
3350 
3400 
3450 
35300 
3550 
3600 
$650 
3700 
3750 
3800 
3850 
3900 
3950 
4000 
4050 
4100 
4150 
4200 
4250 
4300 
4350 
4400 
4450 
4500 
4350 
4600 
4650 
4700 
4750 


PRINT ACI); :NEXT 
PRINT 

Q=Q4+1:TP=TP+P-1 

IF @>=4 THEN 3000 

PRINT"LET'S TRY "; 

IF Q=3 PRINT"ONCE MORE...":GOTO 2800 
PRINT"AGAIN..." 

FOR I=i TO 1200:NEXT 

PRINT: P=t 

GOTO 850 

PRINT 

PRINT'OF THE"; TP; "GUESSES YOU MADE," 
PRINT'NONE OF THEM MATCHED THE" 
PRINT'NUMBER I HAD SELECTED..... " 
FOR I=1 TO 2000:NEXT:Z=X 

REM MORE ? 

IF X=10 THEN X=5:GOTO 3450 

IF X=5 THEN X=3:GOTO 3450 

A=0:GOTO 3850 

PRINT: P=1:Q=1:1F X=3 GOTO 3600 
PRINT"TO TAKE THIS A STEP FURTHER," 
PRINT"LET'S TRY SOMETHING DIFFERENT. “ 
PRINT“ INSTEAD OF 1 AND";2;"I WILL" 
PRINT'SELECT BETWEEN 1 AND"; X%; "AND" 
PRINT'GIVE YOU";X-1; "TRIES..." 

PRINT 

GOTO 850 

PRINT 

PRINT'THIS IS REALLY HARD TO BELIEVE..." 
PRINT" YOU MADE"; TP; "GUESSES, I GAVE" 
PRINT’ YOU THREE DIFFERENT BREAKS AND" 
PRINT" YOU MATCHED" ;A;"OF THE NUMBERS" 
PRINT" THAT I SELECTED !1!" 

FOR I=i TO 3000:NEXT 

CLS: PRINT CHR$(23) 

PRINT" YOU CAN'T WIN..... " 

PRINT: PRINT"TURKEY |!" 

FOR I=1 TO 1500:NEXT:CLS 

PRINT"READY TO TRY AGAIN, YOU'LL" 
PRINT"GET THE SAME BREAKS AS BEFORE"; 
INPUT X$§ 

IF X$="N" OR X$="NO" THEN 4650 
WW=1:GOTO 100 

CLS:PRINT CHR$(23) 

PRINT" CHICKEN..." 

GOTO 4750 
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Variables and Strings 


P - Attempts (guesses) 

X - Attempts per run 

N - Number input as guess 

AQ) - Subscripted variable for guesses 

A - Computer selected number 

TP - Total guesses 

Z - Value of X (current) for message 

WW - For skipping the instructions (playing more than once) 


Explanation of the Program Lines 


Line 200 initializes three variables and skips the instructions if 
WW is equal to 1 (more than one run). 

Lines 250-850 print the general instructions. 

Lines 900-1100 begin the rounds and accept user’s guess. 

Line 1150 tests the value of N to make sure it is within the 
specified limits. 

Lines 1200-1550 print several messages and the number 
guessed. It then places each number in a subscript A(P) = N for 
further reference. 

Lines 1600-1850 cause a return to line 1100 for another guess if 
P is not greater than or equal to X. 

Lines 1900-2450 print the number selected by the computer 
and all of the numbers the user selected. 

Lines 2500-2900 begin it all again if Q is less than or equal to 3 
and the user has not hit the computer with a hammer. 

Lines 3000-3800 print the user’s total number of guesses, 
change the value of X to a lower number, and then start the routine 
again. If X = 3, the program branches to line 3850. 

Lines 3850-4750 print a closing message and ask the user if he 
or she would like to try again. 
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LIBS UWE 
LY 2? 


LOVE ONE ANOTHER 


Having problems with your spouse, girlfriend, or boyfriend? Don't 
take it to court, take it to your computer ! If you’re having difficulties 
expressing your complaint , you can register it with this program. 
Then your wife, husband, girlfriend, or boyfriend can register his or 
her complaints. The final outcome? Discussions of problems you 
thought didn’t exist! 


Sample Run 


LOVE ONE ANOTHER 


ARE YOU MARRIED? YES 

WHAT IS YOUR SPOUSE’S 

FIRST NAME, PLEASE? MARGRET 

SO YOU ARE HAVING A FEW PROBLEMS 
AND NEED YOUR COMPUTER'S ASSISTANCE? 
YOU WILL GO THROUGH THE PROGRAM 
FIRST; THEN MARGRET CAN GO THROUGH 
IT. | WILL THEN GO THROUGH EACH 

LIST AND PICK OUT THE MAJOR 

ISSUES. IF AT ALL POSSIBLE, KEEP 
COMPLAINTS TO THREE OR FEWER 
WORDS. THIS WILL KEEP THINGS 

EASIER TO MANAGE. 


111 


BEGIN? 


YOUR FIRST NAME? SAM 

SAM YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER 
UP TO 10 COMPLAINTS. IF YOU 
DO NOT HAVE 10, JUST PRESS 
‘ENTER’ FOR A COMPLAINT. 


LET'S HAVE COMPLAINT NUMBER 1 ?RELATIVES 
NUMBER 2 ?COMMUNICATION 

NUMBER 3 ?SMOKING 

NUMBER 4 ?GOING PLACES 

NUMBER 5 jae aE 

NUMBER 6 ? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, ere 


COMPLAINT NUMBER 4 : 
RELATIVES...PRIORITY.? 8 
COMPLAINT NUMBER 2 
COMMUNICATION...PRIORITY? 10 
COMPLAINT NUMBER 3 : 
SMOKING...PRIORITY? 6 
COMPLAINT NUMBER 4 : 

GOING PLACES...PRIORITY? 7. 
COMPLAINT NUMBER 5: 
RELATIVES...PRIORITY? 8. 


PROCESSING DATA... 

ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER, SAM. 


IF YOU WILL CALL MARGRET TO 
THE COMPUTER, | WILL ACCEPT 
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THE ‘OTHER SIDE’ OF THE 


MARGRET PRESS ENTER? 

MARGRET, SAM HAS ENTERED 5 
COMPLAINTS. | WILL NOW RECEIVE 
YOUR VERSION OF COMPLAINTS, AND 
THEN COMPARE THE TWO SETS 

AND RETURN MY FINDINGS... 


MARGRET YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER UP 
TO 10 COMPLAINTS, IF YOU 

DO NOT HAVE 10, JUST PRESS 
‘ENTER’ FOR A COMPLAINT. 


LET'S HAVE COMPLAINT NUMBER 1 ?RELATIONS 


NUMBER 2? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. 


COMPLAINT NUMBER 1: 
RELATIONS... 


PRIORITY? 10. 
PROCESSING DATA... 


ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER MARGRET. 
SAM HAS MORE 

COMPLAINTS, AS YOU PROBABLY 
SEE IN THE PRINTOUT, MARGRET. 
BUT THAT ISN'T THE ISSUE. 
WHAT IS IMPORTANT ARE THE 
MAJOR COMPLAINTS: 

SAM'S IS: COMMUNICATION 
MARGRET’S IS: RELATIONS 
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OUTPUT 
MESSAGE 
COMPLAINT 


FINAL 
MESSAGE 


SECOND USER 
ENTRIES 


TRANSFER DATA 
SORT LISTS 


Flowchart for Love One Another. 
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DISCUSS THIS PROBLEM BETWEEN 
YOURSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM’S OTHER COMPLAINTS ARE: 
RELATIVES 

DISCUSS THIS PROBLEM BETWEEN 
YOUSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM’S OTHER COMPLAINTS ARE: 
GOING PLACES 


STOP 


This is not acomplete run. In between the discussions of the 
complaints, each is placed on a chart for viewing. 


Program Listing 


010 REM PROGRAM TITLE: LOVE ONE ANOTHER 

20 CLEAR 1000:CLS 

30 PRINT"LOVE ONE ANOTHER": PRINT 

40 INPUT" ARE YOU MARRIED"; A$ 

$0 IF LEFTSC(A$,1)="¥" THEN 120 

60 PRINT"ARE YOU CURRENTLY DATING A" 

70 INPUT"GIRLFRIEND OR BOYFRIEND"; AS 

80 IF LEFTS(A$,1)="¥" THEN 160 

90 PRINT"WHY ARE YOU RUNNING THIS" 

100 PRINT"PROGRAM. ..DINGY [!1" 

110 GOTO 1840 

120 PRINT"WHAT IS YOUR SPOUSE'S" 

130 PRINT"FIRST NAME, PLEASE"; 

140 INPUT N&$ 

150 FRINT@0,CHR$(30);:GOTO 180 

160 PRINT"WHAT IS YOUR GIRLFRIEND OR" 

170 PRINT" BOYFRIEND'S FIRST NAME";:GOTO 140 
180 PRINT"SO YOU ARE HAVING A FEW PROBLEMS" 
190 PRINT" AND NEED YOUR COMPUTER'S ASSISTANCE.“ 
200 PRINT" YOU WILL GO THROUGH THE PROGRAM" 
210 PRINT" FIRST, THEN “;N$;,‘" CAN GO THROUGH" 
220 PRINT'IT. I WILL THEN GO THROUGH EACH" 
230 PRINT"LIST AND PICK OUT THE MAJOR" 
240 PRINT"ISSUES. IF AT ALL POSSIBLE, KEEP" 
250 PRINT"COMPLAINTS TO LESS THAN FOUR" 
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260 
270 
240 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
940 
450 
960 
470 
480 
490 
500 
310 
920 
930 
940 
950 
360 
970 
580 
390 
600 
610 
620 
630 
640 
630 
655 
660 
670 
680 
690 
700 
710 
7290 
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PRINT"WORDS THIS WILL KEEP THINGS" 
PRINT"EASIER TO MANAGE." 

PRINT 

PRINT 

INPUT" BEGIN"; A$ 

CLS:DIM C$(11),PC11) 

INPUT" YOUR FIRST NAME" ;NN& 

PRINT NN$;" YOU WILL HAVE THE OPPORTUNITY" 
PRINT" TO REGISTER UP TO TEN COMPLAINTS,IF YOU" 
PRINT"DO NOT HAVE 10, JUST PRESS" 

PRINT" 'ENTER' FOR A COMPLAINT." 

PRINT 

C=1 

PRINT"LET'S HAVE COMPLAINT NUMBER" ,;C; 

IF C>=2 PRINT"NUMBER “°;C; 

INPUT €§(C):-GOTO 1220 


IF C$(Cis"" THEN 470 
REM STEP COUNTER 
C=C+i 

IF Ceti THEN 470 
GOTO 400 

I=C~1 

IF I=#0 THEN 370 

CLS 


PRINT"WE WILL NOW GIVE EACH" 

PRINT" COMPLAINT A PRIORITY NUMBER." 
PRINT'"THESE NUMBERS WILL RANGE" 
PRINT" FROM 1 (LEAST SIGNIFICANT)" 
PRINT'TO 10 (MOST SIGNIFICANT), NO" 
PRINT" FRACTIONS, PLEASE." 

PRINT 

Cel 

PRINT" COMPLAINT NUMBER";C;":" 

PRINT C$¢(C);"..."; 

INPUT" PRIORITY"; PCC} 

IF P(G) <i OR PC(C)}>10 THEN 630 ELSE C=C+#t1 
IF C>1I THEN 650 

GLS 

GOTO $380 

REM ARRANGE AS PER PRIORITY 

PRINT" PROCESSING DATA..." 

C=i:k=0 

IF P(C)>=P(C+1i) THEN 710 
PeP(C):P(C)=P(C+1):P(C+1)=P 
C$=C$(C):C§$(Cd=C$5(C+#1):058 (C+102CS 
X=1 

C=C+1 

IF €>1 THEN 740 


730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1096 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


GOTO 670 

IF X=1 THEN 660:REM ORDER AGAIN 
REM IN ORDER 
PRINT“ ALL COMPLAINTS HAVE BEEN" 
PRINT" PROCESSED AND PLACED IN" 


PRINT" PRIORITY ORDER, "|NNS;"." 
IF WW=i THEN 1010 

WW= 1 

PRINT 

PRINT'IF YOU WILL CALE "j;N$;" TO" 


PRINT'THE COMPUTER, I WILL ACCEPT" 
PRINT'THE ‘OTHER SIDE' OF THE" 
PRINT"COIN..... " 

PRINT N$;: INPUT" PRESS ENTER"; X 
CLS 

PRINT N$;", "jJNN$;" HAS ENTERED"; 1 
PRINT"COMPLAINTS, I WILL NOW RECEIVE" 
PRINT" YOUR VERSION OF COMPLAINTS," 
PRINT" THEN COMPARE THE TWO SETS" 
PRINT'AND RETURN MY FINDINGS..." 
REM TRANSFER DATA 

FOR WeH1 TO I 

WS CW)I=CS CW) CSCW)" 

WCW) =PCW) > PCW) =0 

NEXT 

X$=NN5$ :NN@=N6S : FeI 

PRINT 

GOTO 330 

REM ALL COMPLAINTS IN 

PRINT 

INPUT" ENTER PLEASE"; 

cLS 

PRINT TAB(10) X$; TABC4S) N$ 

PRINT TABCO}"COMPLAINT",; 

PRINT TAB(C18) "PRIORITY"; 

PRINT TAB(C35) "COMPLAINT"; 

PRINT TAB(S5S2)"PRIORITY" 

FOR Q=0 TO 59:PRINT'X"; :NEXT: PRINT 
Gal: Tei 

PRINT TAB(CO) W$C(1I); TAB(21) WC); 
IF 19G THEN 1150 

PRINT TAB(35) C$(I); TAB(S6) PCI} 
T=I+1 

IF I¢=F THEN 1200 

IF I>F AND I[¢=G THEN 1130 

REM BRANCH TO RESULTS 

GOTO 1300 

IF 19G THEN PRINT:GOTO 1120 
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1210 
1229 
1230 
1240 
1250 
1260 
1270 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1340 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1310 
1320 
1330 
1340 
1350 
15360 
1370 
1580 
1990 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
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GOTO 1120 
REM LETTER COUNT (LENGTH) 
IF LEN(C$(C))>=21 THEN 1250 


GOTO 420 

PRINT" YOU NEED TO SHORTEN" 

PRINT' THE COMPLAINT A LITTLE." 

GOTO 400 

REM RESULTS 

PRINT: INPUT"KEY ENTER WHEN READY"; 
CLS 

IF F)G THEN PRINT X§$;:R=1:GOTO 13640 
IF F=G THEN 1410 

PRINT N&; 

PRINT" HAS MORE" 

PRINT" COMPLAINTS, AS YOU PROBABLY" 
PRINT'SEE IN THE PRINTOUT "; 

IP Rel PRINT N$;".": GOTO 1440 

PRINT X$§;".":GOTO 1440 

PRINT X$;" YOU AND ";N8;" HAD AN" 
PRINT" EQUAL AMOUNT OF COMPLAINTS, AS" 
PRINT'YOU PROBABLY KNOW BY NOW." 
PRINT: f=1 

PRINT' BUT THAT ISN‘T THE ISSUE." 
PRINT"WHAT IS IMPORTANT ARE THE" 
PRINT'MAJOR COMPLAINTS: " 

PRINT X$;"'S 18: ";wsc.r)d 

PRINT NS$;"'S IS: ",C8¢1) 

PRINT 

PRINT" DISCUSS THIS PROBLEM BETWEEN" 
PRINT" YOURSELVES NOW, THEN PRESS ENTER" 
INPUT X:CLS 

T=I+i 

IF I>F THEN 1600 

IF I1>G THEN 1630 

PRINT: 1F JJ=#1 THEN 1650 

PRINT"THE NEXT AREA OF COMPLAINTS:" 
GOTO 1480 

PRINT X¥5;" HAS NO MORE COMPLAINTS." 
IF I1>G THEN 1630 

GOTO 1650 

PRINT N§;"" HAS NO MORE COMPLAINTS." 
GOTO 1690 

PRINT N&;"'S OTHER COMPLAINTS ARE:" 
JJel 

PRINT Cs (I) 

GOTO 1500 

IF I>F THEN i750 

PRINT X$;"'S OTHER COMPLAINTS ARE:" 


1710 JJ=2 

1720 PRINT W$¢1) 

1730 GOTO 1500 

1750 REM FINISH 

1760 PRINT 

1770 PRINT"IF YOU DID NOT SOLVE ALL" 
1780 PRINT"OF YOUR DISAGREEMENTS RUN" 
1790 PRINT"THE PROGRAM AGAIN." 

1800 PRINT 

1810 PRINT"REMEMBER, WHEN YOU HAVE PROBLEMS" 
1820 PRINT"DON'T TAKE IT TO COURT..." 
1830 PRINT'TAKE IT TO YOUR COMPUTER. " 
1840 PRINT 

i850 PRINT"END OF PROGRAM." 

1860 END 


Variables and Strings 

A$ - General string input 

N§ - First name of spouse, girlfriend, or boyfriend 

C$) - Subscripted, for up to 10 complaints 

P(D - Subscripted, for up to 10 priority numbers 

C - Counter, number of complaints 

I - Total of variable C minus 1 

C§$ and X - Used for placing complaints in order of priority 

WW - Will be equal to 1 when both parties have entered complaints 

NN§ - Current user (entering data) 

W8(1) and W(D - Take on the contents of C$(I) and Pd) before the 
second user enters data 

X$ - Contents of NN$ (first name) 

F - Value of I (total, first users entries) 

G - Value of I (total, second users entries) 

R - For correct message output 

JJ - Correct message output 


Explanation of the Program Lines 

Line 20 clears 1000 bytes of memory for string storage. 

Lines 40-170 ask the first user for the first name of his or her 
spouse, girlfriend, or boyfriend. If the questions are not applicable, 
the program is terminated. 

Lines 180-310 display the general instructions. 

Lines 320-460 lets the current user input up to 10 complaints. 

Line 410 sends program control to line 1220, which tests the 
length of each complaint. This insures that the printout (chart) will 
be kept as neat and readable as possible. 
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Lines 470-480 sets the value of I to C-1. If l= 0 (ero), the 
program will loop back to line 370, the beginning of the complaint 
entries. 

Lines 490-640 allow the user to input priority values for each 
complaint entered. 

Lines 650-780 rearrange the complaints according to their 
priority numbers, so that the complaints are arranged from highest 
priority to lowest priority when printed. 

Lines 790-1000 allow the users partner to register his or her 
complaints. Lines 930-980 transfer the current data to alternate 
strings and variables, so the information will not be lost when the 
second person enters his or her complaints. Line 1000 sends pro- 
gram control back to line 330 for the entry of the new complaints. 

Lines 1010-1190 display each user’s complaints and priorities 
in order from high (most important) to low (least important). 

Lines 1310-1440 display generalized messages for each user. 

Lines 1450-1730 display each user’s complaints one at a time, 
and allow them to discuss each one before continuing. 

Lines 1750-1860 display the final message and end the pro- 
gram. 
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| HAVE FOUND THAT 
YOU WOULD BE 
MOST COMPATIBLE 
WITH THE GOLDFISH 
YOU NOW OWN! 


DATE SERVICE 


Been having problems finding the right person to date? Have no 
fear; your computer will now try and rescue you! Naturally, you and 
up to 9 others (of the opposite sex) will answer all necessary 
questions. After this, the computer will compile all data collected 
and tell you who you would be most compatible with. Keep in mind 
that this is only a simulation or game. The computer has no way of 
judging the final outcome of a person’s thought pattern. 


Sample Run 
*tDATE SERVICE*« 


OPERATING INSTRUCTIONS? YES 


BEEN HAVING PROBLEMS FINDING 

THE RIGHT PERSON TO DATE? 

HAVE NO FEAR - COMPUTER DATE 
SERVICE IS HERE !! 

NATURALLY, YOU’LL NEED TO INPUT 
REQUIRED DATA SO THE COMPUTER 
CAN SORT AND SELECT A PERSON 
THAT MIGHT BE COMPATIBLE WITH YOU. 


YOUR FIRST NAME? MAC 


AGE? 31 
MALE OR FEMALE (1 or 2)? 1 


121 


USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?COMPUTERS 
YOUR INTEREST ?MONEY 
WHAT YOU LIKE?7EQOD 
WHAT YOU DISLIKE?NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? LARGE 
COLOR CHOICE? BLUE 


THE NEXT PART OF THE PROGRAM 
WILL BE DEALT WITH IN ONE 

OF TWO WAYS: 

FIRST, YOU CAN HAVE SOMEONE 
ELSE ANSWER THE QUESTIONS. 
SECOND, YOU CAN ANSWER THEM 
ABOUT PERSONS YOU KNOW. 


WHAT WILL IT BE (1 or 2)? 


° 


tes 


SEND IN FEMALE # 1 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MAC. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SARAH 

AGE? 29 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?COOKING 
YOUR INTEREST?SEWING 
WHAT YOU LIKE? PARTIES 
WHAT YOU DISLIKE?NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? SMALL 
COLOR CHOICE? RED 


SEND IN FEMALE # 2 
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TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, SARAH. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SANDRA 

AGE? 32 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?COMPUTERS 
YOUR INTEREST ?COLLECTING 
WHAT YOU LIKE?FOOD 

WHAT YOU DISLIKE?7BUGS 
TYPE OF MUSIC? ROCK 

TYPE OF CAR? SMALL 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 3 
TO ANSWER THE QUESTIONS, YOU 
SHOULD NOT BE PRESENT, SANDRA. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? MARTHA 

AGE? 28 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?MEN 

YOUR INTEREST ?MONEY 
WHAT YOU LIKE?DIAMONDS 
WHAT YOU DISLIKE ?ANIMALS 
TYPE OF MUSIC? EASY 

TYPE OF CAR? LARGE 
COLOR CHOICE? GREEN 


SEND IN FEMALE # 4 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MARTHA. 


PRESS ENTER WHEN READY 
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YOUR FIRST NAME? ROBIN 

AGE? 35 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?STAMPS 

YOUR INTEREST ?FLYING 

WHAT YOU LIKE?LARGE HOUSES 

WHAT DO YOU DISLIKE? SMALL HOUSES 
TYPE OF MUSIC? ANY KIND 

TYPE OF CAR? LARGE 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 5 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, ROBIN. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SHERRY 

AGE? 27 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?FURNITURE 

YOUR INTEREST ?CARS 

WHAT YOU LIKE ?MONEY 

WHAT YOU DISLIKE?FAST FOODS 
TYPE OF MUSIC? COUNTRY 
TYPE OF CAR? SMALL 

COLOR CHOICE? PURPLE 


IF MAC IS NOT PRESENT, SEND 
HIM TO THE COMPUTER, PLEASE. 


MAC, 5 WOMEN ANSWERED THE QUESTIONNAIRE. 
DO YOU HAVE MORE, OR SHALL 

| PROCESS THE CURRENT DATA. 

(MORE OR PROCESS)? PROCESS 

| WILL NOW SORT AND PROCESS THE DATA 

YOU WILL KNOW IF ONE WILL BE 

COMPATIBLE IN A MOMENT MAC. 
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START 


INSTRUCTIONS 
IF NEEDED 


INPUT ALL 
DATA 


MORE DATA 


PROCESS 
ALL DATA 


OUTPUT LIST 
PERCENT AMTS 


FINAL 
_ MESSAGE 


Flowchart for Date Service. 
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NAME PERCENT COMPATIBLE 


SANDRA....... 50 % 
MARTHA....... 50 % 
SARAR....... 37.5 % 
ROBIN....... 37.5 % 
SHERRY..... 12.5 % 
ENTER? 


REMEMBER, THIS IS ONLY A 
COMPUTER PROGRAM 
EXPRESSING WHO MIGHT BE 
COMPATIBLE WITH YOU THROUGH 
ENTERED DATA.... 


END OF#DATE SERVICE#« 


Program Listing 


S10 REM PROGRAM TITLE: DATE SERVICE 
20 CLEAR 1000:DIM R(12; 
30 RANDOM: J=0.AM=5 
40 CLS:M¢="MALE": FS="FEMALE" : U$="YOUR" 
50 PRINT'** DATE SERVICE *x"™ 
60 PRINT: E$="YOu" 
70 PRINT" OPERATING INSTRUCTIONS (CY/N)"; 
80 INPUT A$ 
90 IF LEFTS(A$,1)¢>"¥" THEN 190 
100 PRINT 
110 PRINT’ BEEN HAVING PROBLEMS FINDING" 
120 PRINT"THE RIGHT PERSON TO DATE ?” 
130 PRINT"HAVE NO FEAR - COMPUTER DATE" 
i140 PRINT"SERVICE IS HERE !!" 
150 PRINT'NATURALLY, YOU'LL NEED TO INPUT" 
160 PRINT"REQUIRED DATA SO THE COMPUTER" 
170 PRINT"CAN SORT AND SELECT A PERSON" 
180 PRINT'THAT MIGHT BE COMPATIBLE WITH YOU." 
190 PRINT 
200 PRINT US," FIRST NAME", 
2053 INPUT N&§(J):1F N§(J)="" THEN 200 
210 INPUT"AGE", ACJ) 
215 IF J<>0 THEN PRINT: GOTO 230 
220 INPUT"MALE OR FEMALE (i OR 2)";8: PRINT 
225 IF S=i THEN W$=FS ELSE WS=M5 
230 PRINT'USING ONE WORD FOR EACH, ANSWER" 
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240 PRINT'THESE QUESTIONS “; 

245 IF SE<¢>)2 THEN PRINT N$(J);"." ELSE PRINT 
250 PRINT U$;" HOBBY"; : INPUT A$ (J) 

260 PRINT U$;" INTEREST" ;: INPUT B$(J) 
270 PRINT 'WHAT “;E5;" LIKE"; 

272 IF SE=2 PRINT'S"; 

2795 INPUT C8 (J) 

280 PRINT"WHAT ";ES;" DISLIKE"; 

282 iF SE=2 PRINTS"; 

283 INPUT D$(J> 

290 INPUT" TYPE OF MUSIC";E$(J> 

300 INPUT" TYPE OF CAR"; FS$(J) 

310 INPUT"COLOR CHOICE";G$§(J) 

320 CLS:I1F J=AM THEN 620 

325 IF J¢)0 PRINT: J=J+1:GOTO 430 

330 PRINT"THE NEXT PART OF THE PROGRAM" 
340 PRINT"WILL BE DEALT WITH IN ONE" 
350 PRINT“OF TWO WAYS:" 

360 PRINT'FIRST, YOU CAN HAVE SOMEONE" 
370 PRINT"ELSE ANSWER THE QUESTIONS." 
380 PRINT'SECOND, YOU CAN ANSWER THEM" 
390 PRINT" ABOUT PERSONS YOU KNOW." 

400 PRINT: J=J+1 

410 PRINT"’WHAT WILL IT BE (1 OR 2)"; 
420 INPUT SE:N$=N$(0) 

430 IF SE=1 THEN 460 

440 IF SE=2 THEN 540 

430 GOTO 400 

460 REM OTHERS TO INPUT 

9470 PRINT"SEND IN ";[WS;" #5 J 

480 PRINT'TO ANSWER THE QUESTIONS, YoU" 
490 PRINT"SHOULD NOT BE PRESENT, "; 
495 IF J=6 PRINT: GOTO 510 

$00 PRINT N$(J-1);".": PRINT 

5i0 PRINT” PRESS ENTER WHEN READY"; 

920 INPUT X§ 

930 CLS:GOTO 190 

240 REM USER TO INPUT 

945 IF J>=2 PRINT"ANSWER ";:GOTO 600 
990 PRINT" YOU ARE ABOUT TO ANSWER THE" 
560 PRINT"QUESTIONS FOR THE ";ws;"'s" 
970 PRINT'THAT YOU KNOW. DO NOT BE" 
580 PRINT"ONE SIDED TO TRY AND OBTAIN" 
590 PRINT"A COMPATIBLE PERSON. ANSWER" 
600 PRINT'AS FACTUALLY AS POSSIBLE, "; 
610 PRINT N$;".":GOSUB 850:PRINT:GOTO 510 
620 REM DATA IN 

630 CLS 
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640 PRINT"IF ";N$;" IS NOT PRESENT, SEND" 
650 IF S=1 PRINT"HIM ";:GOTO 670 

660 PRINT"HER "; 

670 PRINT"TO THE COMPUTER, PLEASE." 

680 PRINT: IF AA=AM-X THEN PRINT:GOTO 890 


685 IF SE=2 PRINT"YOU HAVE ";:GOTO 720 
690 PRINT NS;",",0; 
700 IF S=1 PRINT'WOMEN "; :GOTO 720 


710 PRINT"MEN "; 

720 PRINT'ANSWERED THE QUESTIONNAIRE." 
730 PRINT"DO YOU HAVE MORE, OR SHALL" 

740 PRINT"I PROCESS THE CURRENT DATA." 
750 INPUT" (MORE OR PROCESS)",;Q8§ 

760 IF Q$="MORE" THEN 790 

770 IF Q@$="PROCESS" THEN PRINT:GOTO 890 
780 PRINT: GOTO 690 

790 PRINT N$;" UP TO"; 10-J3;"MORE CAN" 

800 PRINT"ANSWER, THEN I MUST PROCESS." 
810 INPUT'HOW MANY MORE DO YOU HAVE"; X 
820 AA=AM: AM=AM+X 

830 IF AM>=11 THEN AM=AA:PRINT:GOTO 790 
840 J=J+1: PRINT: IF SE=2 THEN $10 ELSE 460 
850 REM FOR INPUT 

855 IF J>=2 RETURN 

860 IF S=1 THEN U$S="HER": E$="SHE":GOTO 880 
870 U$S="HIS": E$="HE" 

880 RETURN 

890 IF AA<AM THEN AR=AM ELSE AR=AA 

900 PRINT"I WILL NOW SORT AND PROCESS DATA" 
910 PRINT" YOU WILL KNOW IF ONE WILL BE" 
920 PRINT"COMPATIBLE IN A MOMENT ",;N5;"." 
930 I=0:X=#1:P=i 

940 IF ABSCACI)-ACK))¢=5 THEN GOSUB 1150 
950 ON P GOTO 960,970,980,990,1000,1010,1020 
960 TS=A$C1):AS=A$(6K):GOTO 1030 

970 T$=B$(1):A$=BS(X):GOTO 1030 

980 T$=C$¢(1I):AS8=C$(X):GOTO 1030 

990 TS$=DS$(1):A$=N$(X):GOTO 1030 

1000 TS=E$(1I):A$=E$(X):GOTO 1030 

1010 TS=FS(1):A$=F$(X):GOTO 1030 

1020 T$=G$C(I):A$=G5 (8) 

1030 IF T$¢)A$ THEN 1050 

1040 GOSUB 1150:REM MATCH 

1050 P=P+1 

1060 IF P=8 THEN 1080 

1070 GOTO 950 

1080 R(X i =TR:P=1 

1090 X=K+l 
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1100 IF X>AR THEN 1180 

1110 TR=0:GOTO 940 

1130 REM POINT PER MATCH 

1160 TR=TR+12.5 

1170 RETURN 

11860 REM PERCENT 

1190 T=si:F=0 

1200 IF R(I)=#=0 THEN 1240 

1210 IF R¢I)>=R(I+1)2 THEN 1240 

1220 ReRCI) RCI) #eRC 141): RCl+i)=R:Fe=1 
1230 NS=N$(CI}INS( I) SNS CI41):NS (141) =N$ 
1240 I=I+1 

1230 IF I>AR THEN 1270 

1260 GOTO 1200 

1270 IF Fei THEN 1190 

1280 REM LIST 

1290 PRINT"NAME" TAB(20)"PERCENT COMPATIBLE" 
1300 PRINT: FOR I=1 TO AR 

1310 IF R¢I)=0 THEN 1330 

1320 PRINT N$SC(I);". 0.0... “TABC2Z5) RCT); '%" 
1330 NEXT 

1340 PRINT: FOR I=1 TO 2000 

1350 NEXT: INPUT“ ENTER" ;X:CLS 

1360 PRINT'REMEMBER, THIS IS ONLY A" 
1370 PRINT"COMPUTER PROGRAM" 

1380 PRINT" EXPRESSING WHO MIGHT BE" 
1390 PRINT"COMPATIBLE WITH YOU THROUGH" 
1400 PRINT"ENTERED DATA...." 

1410 PRINT 

1420 PRINT"END OF ** DATE SERVICE xx" 
1430 END 


Variables and Strings 


J - Counter, total persons entered 

AM - Current amount 

M$,F$,U$, & E$ - Are used for print messages, depending upon the 
sex of the main user 

N&(J) - Name of person 

A(J) - Age of user 

S & SE - Are used for print messages again, depending upon the sex 
of the main user 

AS$(J) & G$(J) - Are used to enter necessary data 

AA - Value of AM, if additional persons are to be included 

P - Counter, for comparing entries 

R(X) - Total points, when entries match 

TR - Number of points per match 
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Explanation of the Program Lines 

Line 30 sets two variables: one is a counter; r 
total number of potential partners that can respond during the initial 
section of the program. 

Lines 40-60 contain strings; the contents of these will change 
according to the questions and the sex of the user. 

Lines 70-180 display the general operating instructions. 

Lines 200-310 form the main body of the program. The main 
user answers all the questions first. 

Lines 320-440 begin the second part of the program, if 
jJ<>AM. 

Lines 460-530 call the other users to answer all necessary 
questions. 

Lines 540-610 are used for the main (first) user if he or she has 
chosen to answer the questions about people of the opposite sex. If 
the main user decides to answer these questions, he or she should 
not be one-sided as this will defeat the purpose of the program. 

Lines 620-750 call the main user back to the computer. At this 
point, he or she will be asked if there are more persons to input data. 

Line 760 branches to lines 790-840 for data entries involving up 
to 5 more people. 

Line 770 jumps to line 890 for the processing of the data 
entered. 

Lines 890-1270 compare each piece of data to the main users 
data. If a match is made 12.5 points are added to the total score. No 
points are given if the data does not match. 

Lines 1280-1430 print the entire list of names. The percentage 
of compatability is also printed if it is not equal to 0. 
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HOW ABOUT, NAW, NOT IN TOWN 
THEN WHAT ABOUT, NAW, LEFT 
THE COUNTRY. 
SELECT 1-6? 7 
SORRY PERSON CANNOT BE LOCATED 
IN THIS FILE... 


KEY A DATE 


No the computer will not not run out and get you a date! You'll be 
able to select more easily who you want to date though. With the 
help of this program, you'll build yourself a file for your own 
personal use that no one else can pry into. If another person comes 
along to nose into your file, they will be surprised if they don’t enter 
the correct code and the entire program disappears ! 


Sample Run 


><><KEY A DATE><>< 


1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 

3) SEE A NUMBER / ADD A NAME 

4) DELETE A NAME 

5) SEE ENTIRE LIST 

6) TERMINATE RUN 

1 

THE INSTRUCTIONS ARE QUITE STRAIGHT- 
FORWARD AND SIMPLE. ALMOST ALL 

OF US THAT ARE NOT MARRIED (AND 
SOME THAT ARE) CARRY AROUND A 
LITTLE BOOK. THIS LITTLE BOOK 
CONTAINS NAMES AND PHONE NUMBERS 
OF PERSONS OF THE OPPOSITE SEX 
WITH WHOM YOU MIGHT WANT TO 

MAKE A DATE. NOW YOUR COMPUTER 

IS ABOUT TO RELIEVE YOU OF THE 
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‘- stant) 


COMMAND LIST 


= ererereeesirene erate mr orennnntmanmammmmattneAseanapate satan Atinsenttit = 


NAME TO DELETE 


PRINT ENTIRE FILE 


TERMINATE 


Fig. 3-14. Flowchart for Key a Date. 
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DATA TO TAPE 


Y 
C8 RETRIEVE DATA 
N 


DUMP PROGRAM 


| 


ADD A NAME 


in PRINT NAME/NUMBER 


tt onc cect NAME NOT IN FILE 


COMPARE Yy NAME DELETED 


STOP 
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CHORE OF THUMBING THROUGH 


THAT LITTLE BOOK AND GIVE ONLY 


peony a A ‘e eva Wi 


YOU ACCESS TO ITS CONTENTS. 


STRIKE A KEY 

YOU WILL BE ALLOWED TO ENTER 
UP TO 30 NAMES AND PHONE NUMBERS 
OF THE PEOPLE THAT YOU CHOOSE 
ALONG WITH THIS YOU WILL ENTER 
A CODE NUMBER (6 DIGIT). THIS 
CODE WILL BE SAVED ON TAPE 
ALONG WITH ALL THE OTHER DATA. 
WHEN YOU WANT TO RETRIEVE THE 
DATA, YOU’LL NEED TO REMEMBER 
YOUR CODE...OR YOU'LL NEVER 
SEE THE DATA AGAIN !!! 


STRIKE A KEY 
><>< KEY A DATE ><>< 


1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 
3) SEE A NUMBER / ADD A NAME 
4) DELETE A NAME 
5) SEE ENTIRE LIST 
6) TERMINATE RUN 


Program Listing 


10 REM PROGRAM TITLE: KEY A DATE 

20 CLEAR 1200:CLS 

30 DIM N§(30),P$(30):N=1 

940 PRINT")>¢(>¢ KEY A DATE )¢><¢" 

$0 PRINT 

60 PRINT'1) INSTRUCTIONS" 

70 PRINT"2) SEND DATA / RETRIEVE DATA" 
80 PRINT"3) SEE A NUMBER / ADD A NAME" 
90 PRINT"4) DELETE A NAME" 

100 PRINT"S) SEE ENTIRE LIST" 

110 PRINT"6) TERMINATE RUN" 

120 INPUT I 

130 ON I GOTO 140,460,690,910,1310,1600 
140 CLS 

130 PRINT"THE INSTRUCTIONS ARE QUITE 

STRAIGHT-" 


160 PRINT" FORWARD AND SIMPLE. ALMOST ALL" 
170 PRINT"OF US THAT ARE NOT MARRIED (AND" 
180 PRINT'SOME THAT ARE) CARRY AROUND A" 
190 PRINT'LITTLE BOOK. THIS LITTLE BOOK" 
200 PRINT"CONTAINS NAMES AND PHONE NUMBERS" 
210 PRINT"“OF PERSONS OF THE OPPOSITE SEX" 
220 PRINT"WITH WHOM YOU MIGHT WANT TO" 

230 PRINT"MAKE A DATE WITH. WELL NOW YOUR" 
240 PRINT"COMPUTER I15 ABOUT TO RELIEVE you" 
250 PRINT"OF THE CHORE OF THUMBING THROUGH" 
260 PRINT"'THAT LITTLE BOOK AND GIVE ONLY" 
270 PRINT" YOU ACCESS TO ITS CONTENTS." 

280 PRINT: GOSUB 290:GOT0320 

290 PRINT'STRIKE A KEY" 

300 XS=INKEYS$:I1IF X$="" THEN 300 

310 CLS:RETURN 

320 PRINT" YOU WILL BE ALLOWED TO ENTER" 
$30 PRINT"UP TO 30 NAMES AND PHONE NUMBERS" 
340 PRINT'OF THE PEOPLE THAT YOU CHOOSE." 
350 PRINT"ALONG WITH THIS YOU WILL ENTER" 
360 PRINT"A CODE NUMBER (5 DIGIT). THIS" 
370 PRINT"CODE WILL BE PROCESSED TO TAPE" 
380 PRINT" ALONG WITH ALL THE OTHER DATA." 
390 PRINT'WHEN YOU WANT TO RETRIEVE THE" 
400 PRINT"DATA, YOU'LL NEED TO REMEMBER" 
410 PRINT"YOUR CODE. OR YOU'LL NEVER" 

420 PRINT’SEE THE DATA AGAIN !!1" 

425 ‘ IF PROGRAM IS LEFT AS-IS 

430 PRINT 

440 GOSUB 290 

450 GOTO 40 

460 ' SEND / RETRIVE DATA 

470 CLS 

480 INPUT"SEND OR RETRIEVE (S/R)";, XS 

490 IF X$="S" THEN 520 

500 IF X$="R" THEN 590 

510 PRINT: GOTO 480 

$20 CLS 

$30 PRINT"READY PLAYER (IN RECORD)" 

$40 INPUT" THEN KEY ENTER"; X5 

950 PRINT #-1,CD: PRINT #-1,N 

$60 FOR I=1 TON 

$70 PRINT #~1,N$(1),P$(1):NEXT 

§80 CLS:GOTO 40 

590 ' RETRIEVE DATA 

600 CLS 

610 PRINT"'READY PLAYER (IN PLAY)" 

620 INPUT" THEN ENTER CODE";C 
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630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
836 
840 
856 
855 
860 
865 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1100 
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INPUT #-1,CD 
IF Ci(>CD THEN NEW 
INPUT #-1,N 
FOR I=i1 TON 
INPUT #-1,N$C1),P$C1I): NEXT 
CLS:GOTO 40 

ADD A NAME 
' SEE A NUMBER 
CLS:GOTO 1100 
PRINT'** ADD A NAME **" 
IF N<>1 THEN 840 
PRINT" INPUT FULL NAME, THEN PHONE” 
PRINT"NUMBER. USE A - TO SEPARATE" 
PRINT’ PARTS OF THE NUMBER.” 
PRINT"TO CANCEL, PRESS ‘ENTER' ONLY" 
PRINT'FOR A NAME." 
PRINT 
INPUT N& (ND) 
IF N§¢N)=""" THEN PRINT: GOTO 855 
INPUT P$¢(N) 
N=N+1 
IF N+=31 THEN N=N~1:GOTO &70 
GOTO 790 
IF CD<¢>0 THEN 865 
IF N¢)i THEN INPUT"S DIGIT CODE";CD 
GOSUB 290:CLS:GOTO 40 
PRINT 
PRINT" YOU HAVE ENTERED THE LIMIT" 
PRINT'FOR THE PROGRAM,";N; "NAMES." 
PRINT: IF PR=0 GOTO 855 ELSE 865 
‘ DELETE A NAME 
CLS: PRINT'** DELETE A NAME **" 
PRINT'TO DELETE A NAME AND NUMBER," 
PRINT" INPUT THE ENTIRE NAME OF THE" 
PRINT" PERSON, AS IT APPEARS IN THE" 
PRINT'FILE WHO IS THE PERSON YOU" 
INPUT"WANT TO REMOVE FROM LIST" ;N$§ 
FOR I=1 TON 
IF N$S=N$¢(1) THEN 1060 
NEKT. PRINT 
IF P=0 THEN 1040 
PRINT N$;" REMOVED FROM FILE." 
P=0:GOTO 3700 
PRINT N$;“ COULD NOT BE LOCATED." 
GOTO 1030 
N§c¢T>a":P$¢CT)="" 
P=1:GOSUB 14960:IF N=0 Nei 
PRINT:GOTO 1010 
' SEE A NAME? 


1110 INPUT"SEE A NUMBER (Y/N) ";X%5 

1120 IF X$="N" THEN CLS:GOTO 720 

1130 PRINT: IF N=i AND N§(N)s"" THEN 1550 
1140 PRINT" INPUT PERSON'S LAST NAME ONLY"; 
1150 INPUT L5 

1160 L=i 

1170 LE=LEN(N$(L)) 

1180 FOR Ii=LE TO 1 STEP-1:1F I=0 THEN 1280 


1185 IF MIDS(N$(L),1,1)=" " AND D=0 THEN 1420 
1190 NAS=MID$(N$(L),1,1)+4NA$ 
1200 NEXT 


1210 PRINT NAS ,; 

1220 INPUT" (CY/N)";,X%$ 
1230 IF X$="¥" THEN 1260 
1240 IF X$="N" THEN 1280 
1250 PRINT:GOTO 1210 


1260 PRINT'THE NUMBER: ";PS$(L):NA$=s"" 
1270 D=0:PRINT:GOSUB 290:GOTO 40 
1280 NA$="": L=L4+ti 


1290 IF L>=N THEN N$=L5:GOTO 1040 
1300 GOTO 1170 

1310 ‘ ENTIRE FILE 

1320 L=1:Az2#1:CLS 

1330 PRINT'NAME / NUMBER" 

1340 PRINT NS(L),P5C(L) 

1350 L=L+1:A=A+4l1 

1360 IF L>=N THEN 1390 

1370 IF A>=8 THEN Az=1:PRINT:GOSUB 290:L=L-1 
1380 GOTO 1340 

1390 PRINT 

1400 GOSUB 290 

1410 GOTO 40 

1420 '‘ RIGHT NAME 

1430 IF NA$<)>L$ THEN 1280 

1440 De=1 

1450 GOTO i190 

1460 ‘ RE-SORT FILE 

1470 FOR I=#1 TON 

1480 IF N$¢(I)>="" THEN 1500 

1490 NEXT: RETURN 

1500 J=lel1 

1510 N$¢Id=N$¢CJ):P$C( T= P$ (5) 

1520 Tel+1:J=J+l 

1530 IF J>+N THEN N=N-1: RETURN 
1540 GOTO 1510 

1530 '‘ NONE IN FILE 

1560 PR=i 

1570 PRINT"'** NO NAMES IN FILE *x" 
1580 GOTO 900 
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1600 '‘ TERMINATE 

1610 PRINT 

1620 PRINT"END OF PROGRAM" 
1630 END 


Variables and Strings 


N$d) - Names in the file 

P$qd) - Phone numbers in the file 

N - Counter, number in file 

X$ - General input string 

CD - 5 digit code number 

P - Either equal to 0 or 1 for deleting a name 

D - Either equal to 0 or 1 for searching for a particular name 
L & A - Counters for printing all names in the current list 
PR - Name not in file Gf equal to 1) 


Explanation of the Program Lines 


Line 20 clears 1200 bytes of memory for string storage. 

Line 30 dimensions the N$ and P$, arrays for the names and 
phone numbers. 

Lines 40-120 display the command list. 

Line 130 sends control to the appropriate line depending on the 
value input for I. 

Lines 140-440 display the general instructions. 

Lines 460-680 either send data to the tape player or retrieve it 
from the tape player. If the program is left as-is the user must enter 
the 5 digit code that was placed on the tape in order to retrieve data. 
If the user fails to enter the correct code, C< >CD, the entire 
program in memory will be ‘dumped’. 

Lines 690-900 and Lines 1100-1300 let the user either see a 
phone number or add a name. With the program as-is, up to 30 
names and phone numbers can be entered. 

Lines 910-1080 allow the user to delete a name and number 
from the current file. 

Lines 1310-1410 display the entire file that is currently in 
memory. 

Lines 1420-1450 test for a correct name when the user wants to 
locate a certain number only last names are used. 

Lines 1460-1540 re-sorts the entire file when a name has been 
deleted. 

Lines 1550-1580 display a message if there are no names in the 


e€. 
Lines 1600-1630 terminate the program. 
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Games That Span the Ages 


Squares is a game like checkers, but you can move in any direction 
you want. Challenge a friend or the computer. 

Hold Time allows you to stop the computer's piece while you 
shoot it. It’s not that easy though: your lasers must be at the right 
location at the right moment. 

Dangerous Affair challenges even the best would-be spy by 
making you work with coded messages and incompetent agents. 

Pennies or Dollars offers you the chance to get rich quick or 
to become poor in just as short a time. 

Be Prepared (Part I) tests your dexterity and your luck. 
You'll need both to successfully dock your spaceship. 

Rain of Terror is a test of your courage. How long do you dare 
remain at the spot where the bomb will hit? 

Knights places you in medieval times. The king is depending 
on you to destroy the outlaws without killing their hostages. 
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SQUARES 


This program will give you all of the action that checkers never 
attempted to have! Without having to get “crowned” you can move 
wherever you wish on the playing board, just so long as you do it to 
win! If 4 people are playing, the victor of the first game can play the 
victor of the second game. Of course, you can play by yourself 
against the computer. 


Sample Run 
SEE INSTRUCTIONS? YES 


SQUARES 


HOW MANY TO PLAY (1-4)? 2 

JUST LIKE CHECKERS, YOU WILL MOVE 
FROM SQUARE TO SQUARE TRYING TO 
OUTWIT YOUR OPPONENT AND JUMP 
THEIR PIECE. BUT, UNLIKE CHECKERS, 
EACH WILL ONLY HAVE 5 PLAYING 
PIECES. YOU CAN MOVE FORWARD OR 
BACKWARD, AS IF ALL PIECES ARE 
KINGS. THE VICTOR WILL BE THE 
PLAYER WITH PLAYING PIECES 
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START 


P4 


eK) 


PRINT 
INSTRUCTIONS 


4 NUMBER OF 
PLAYERS 


INPUT INITIALS 
OF YY PLAYERS 
4 
SET GRAPHICS 
PLAYING FIELD 
GET MOVE 
FROM PLAYER 
Y 
| - MORE 
Y PLAYERS 
N 


Zz 


oy 


STOP 


RESET PIECE 


SET PIECE 


Y GET . 
JUMP MOVE 


y 


N 


x OUTPUT > 
; MESSAGE 


y 


Flowchart for Squares. 
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aN 
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HHTTFE TP AAQAQNAY VT THEEEETT AAQAQAAQAQA SN TRUE DEE 


(GIVE UP) JUST ENTER A 0 (ZERO) WHEN 
YOU ARE ASKED ‘FROM?’ 


PRESS ENTER? 

IF YOU ARE PLAYING BY YOURSELF, 

YOU WILL PLAY AGAINST THE COMPUTER 
IF THREE ARE PLAYING, ONE WILL 

BE CHOSEN TO PLAY THE WINNER OF 

T 


THE COMPUTER WILL CHOOSE OPPONENTS 


GAME. REMEMBER, MOVE ONE SQUARE AT A 
TIME UNLESS YOU ARE JUMPING. 


PRESS ENTER TO START? 


| NEED THE INITIALS OF THE 2 
PLAYERS? AM 
22 Ad 


Program Listing 


10 

20 

30 

40 

90 

60 

70 

80 

90 
100 
110 
120 
130 
140 
1350 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 
270 
300 
310 
320 
330 
340 


350 
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REM PROGRAM TITLE: SQUARES 

CLS: RANDOM 

CLEAR 300 

DIM X(40>9,¥¢(490),W¢40) 

QQ=-99 

FF=1 

INPUT'SEE INSTRUCTIONS (Y/N) ";A5 

IF AS="V¥" OR AS="YES" THEN 120 

TPF AS="N" OR AS$="NO" THEN TN=1i:GOTO i150 
PRINT"TRY A SOLID ANSWER..." 

PRINT:GOTO 70 

PRINT CHR$ (143) ;,CHR$(143); 

PRINT' S$ QU ARE §& ",;,CHR§(143); 

PRINT CHR$(143) 

PRINT 

PRINT" HOW MANY TO PLAY (1-4)"; 

INPUT YY 

IP Y¥¥¢1i OR YY>4 THEN 150 

IF Y¥=1 THEN GL=1 

REM INSTRUCTIONS NOT NEEDED 

IF TN=1 THEN PRINT: GOTO 510 

REM INSTRUCTIONS 

PRINT" JUST LIKE CHECKERS, YOU WILL MOVE" 
PRINT’ FROM SQUARE TO SQUARE TRYING TO" 
PRINT"OUTWIT YOUR OPPONENT AND JUMP" 
PRINT'THEIR PIECE. BUT, UNLIKE CHECKERS, " 
PRINT" EACH WILL ONLY HAVE S PLAYING" 
PRINT' PIECES. YOU CAN MOVE FORWARD OR" 
PRINT" BACKWARD, AS IF ALL PIECES ARE" 
PRINT"'KINGS. THE VICTOR WILL BE THE" 
PRINT" PLAYER WITH PLAYING PIECES" 
PRINT" REMAINING. TO THROW IN THE TOWEL" 
PRINT" (GIVE UP) JUST ENTER A 06 

(ZERO) WHEN" 

PRINT" YOU ARE ASKED ‘FROM ?'" 


366 
370 
380 
390 
400 
410 
420 
430 
9440 
4350 
460 
470 
980 
490 
300 
510 
920 
930 
$40 
550 
960 
570 
380 
590 
600 
610 
790 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
970 
980 


PRINT 

INPUT" PRESS ENTER"; XX 

CLS 

PRINT“ IF YOU ARE PLAYING BY YOURSELF," 
PRINT’ YOU WILL PLAY AGAINST THE COMPUTER." 
PRINT'IF THREE ARE PLAYING, ONE WILL" 
PRINT’ BE CHOSEN TO PLAY THE WINNER OF" 
PRINT"THE FIRST ROUND IF FOUR ARE PLAYING" 
PRINT'THE COMPUTER WILLCHOOSE OPPONENTS" 
PRINT" AND THE WINNER OF ONE GAME CAN" 
PRINT’ PLAY THE WINNER OF THE FOLLOWING" 
PRINT'GAME.REMEMBER,MOVE ONESQUARE AT A" 
PRINT"TIME UNLESS YOU ARE JUMPING." 
PRINT 

INPUT" PRESS ENTER TO START"; XX 

CLS 

IF TN=1 AND YY¥=1 THEN 540 

IF Y¥YY¥>1 GOTO 750 

AA=RND(2> 

IF AAs=1 THEN RR=1i:GOTO 570 

RR=3:GOTO 600 

PRINT" YOU WILL PLAY FIRST..." 

PRINT" YOU HAVE THE SOLID PIECES." 
PRINT:GOTO 610 

PRINT’ I WILL PLAY FIRST..." 

PRINT: IF Z¢?0 THEN i395 

MZ=0 

PRINT"I NEED THE INITIALS OF THE", YY 
PRINT" PLAYERS";:FOR I=1 TO YY 

INPUT IN$(I):NEXT 

IF YY=ei THEN P$(1)=IN$(1):GOTO 900 

IF Y¥Y=2 THEN 1200 

REM CHOOSE PLAYERS 

REM 3 OR 4@ PLAYING 

A=1 

AA=RND(Y):1F AAs=A THEN 840 

J=1:FOR I=2 TO YY 

IF I=AA THEN 880 

ACJ) sli JaJe+l 

NEXT 

ACJ) #A:ACJ+1)5AA:GOTO 1200 

PRINT"WE WILL NOW BEGIN. REMEMBER" 
PRINT INS(YY);", YOU ARE PLAYING" 
PRINT" AGAINST ME, YOUR COMPUTER." 

GOSUB 10000:CLS 

GOTO 1400 

PRINT" THERE ARE THREE OF YOU PLAYING." 
PRINT" I WILL NOW CHOOSE TWO PEOPLE TQ" 
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990 PRINT'PLAY ONE ANOTHER. THE PERSON" 


i000 
1010 
1020 
1090 
1100 
i110 
1120 
1130 
4140 
12060 
12106 
1215 
“1220 
1230 
1235 
i240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1335 
1340 
1345 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
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PRINT"REMAINING WILL PLAY THE" 
PRINT'WINNER OF THE FIRST ROUND..." 
PRINT 

GOSUB 10000 PRINT 

PRINT P$¢i3,'" YOU WILL PLAY AGAINST" 
PRINT P$(2);,". AFTER THESE HAVE PLAYED" 
PRINT" YOU WILE PLAY THE WINNER "; 
PRINT P$¢(3);,"." 

GOTO 1310 

REM FOUR PLAYERS 

FOR I=ei TO YY 

IF Y¥Y=2 THEN P$CI)=INS$C(I):GOTO 1230 
PS$CIT}=2INS (CACTI 23 

NEXT. IF Y¥=2 THEN 1310 

IF Y¥Y¥=3 THEN 970 

PRINT P$¢(1);" YOU WILE PLAY "“;P$(2>) 
PRINT" IN THE FIRST ROUND. ";P§¢3) 
PRINT'WILL PLAY ";P$(4);" IN THE" 
PRINT"'SECOND. FINALLY, THE WINNER" 
PRINT" FROM EACH SET CAN PLAY EACH" 
PRINT" OTHER." :GOSUB 10000 

PRINT 

REM 2 PLAYERS 

A=RND(2) 

AA=A~-1: IF AA=0 THEN AA=2 

IF Asi THEN 1345 
P$(1)=P$C(AA):P$(2)=2P$5(A):GOTO 1350 
PS§C1)=P$(A):P$(2)=P5 (AA) 

RR=A:WE=YY 

PRINT PS$(RR);" YOU WILL PLAY FIRST." 
PRINT" YOU HAVE THE ",; 

IF RR=2 PRINT'STEPPED PIECES" :GOTO i395 
PRINT’ SOLID PIECES" 

GOSUB 10000:CLS 

REM PLAYING BOARD 

FOR X=10 TO 115 

SET(X,1):SETCK,2) 
SET(X,39):SET(X,40) :NEXT 

FOR X=3 TO 38 

SET(10,X):SETC11,X) 
SET(114,X%):SET(115,X) :NEXT 
L=116:P=70:Pi=P+128 

FOR I=s1 TO 30 

PRINT@P,1;, :P=P+10 

IF P>=sL THEN P=P1:Pi=Pi+128:L=L+128 
NEXT: TP=5:BP=53:REM PIECES 

Keli :J=33:Y=3:L=Y¥+é6 


1930 
1340 
1550 
1560 
1370 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1460 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1855 
1856 
1860 
1870 
1880 
i900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 


FOR X=K TO J 
SETCK,Y):SET(X,V¥+1):SETCX,Y¥+2) 
SET(X,Y¥+3):-SET(K,¥+4) :SET(X,¥+5) 
NEXT 

Y=¥+12 

IF Y>=39 THEN 1600 

GOTO 1530 

K=X.J=K+19:¥=L:L=¥-6 

IF Y=-3 THEN Y=-L 

IF Ys-9 THEN Ys~(L/3)-2 

IF Y=-15 THEN 1650 

GOTO 1530 

REM SET PIECES (TOP) 
X=35:°Y¥57:J=22:.M=4 

FOR I=K TO X+16 

SETCI,Y): SET(I+40,Y¥) 

IF Tsi THEN SET(I+80,Y¥):M=10 

NEXT: IF Tei THEN GOSUB 1900:GOTO 1720 
GOSUB 1900:X=#15:¥=13:T=1:GOTO 1670 
REM SET PIECES (BOTTOM) 

GOSUB 1960:X=e35:Y=Y+18:T=0:M=24 

FOR I=X TO X+16 STEP 2 

SETC(I,Y) :SET(C1+40,¥) 

IF T=1 THEN SET(1+80,Y) :M=30 
NEXT:IF T=1 THEN GOSUB 1900:GOTO i790 
GOSUB 1900: :X=15:Y=#¥+6:T=1:GOTO 1740 
REM SET START LOCATIONS 

GOSUB 2030:J=2:FOR I=2 TO 10 STEP 2 
WOJ)=1:WO0410) 5-99: JaJ4+2:NEXT: J=22 
FOR [=22 TO 30 STEP 2 
WOJ)=99:J=2#J42:NEXT: GOTO 2100 

GOSUB 10060:GOSUB 10080:PRINT@901,,; 
INPUT" FROM SQUARE";F:I1F F>30 THEN 1840 
IF F=0O AND RR=2 THEN RR=1:GOTO 4100 
IF F=0 AND RR=1 THEN RR=2:GOTO 4106 
GOSUB 10060:GOSUB 10080:PRINT@900,; 
INPUT" TO SQUARE";|T: IF T>30 THEN 1860 
RETURN 

REM PIECE LOCATION 

X(J eK. Y¥CJ)=Y 

J=J+2 

IF J=M THEN 1910 

IF J¢=M AND T=1i THEN 1910 

RETURN 

REM PIECE LOCATION (MIDDLE> 
L=46:D=20:M=14 

XC J)=X4D:¥C J) =Y4*h 

J=aJ+2 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2104 
2105 
2108 
2110 
2120 
2130 
2140 
21495 
21530 
2160 
2165 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2235 
2240 
2250 
2260 
2270 


2279 
2280 
2290 
2295 


2300 
2310 
2320 
2400 
2405 
2410 
2420 
2430 
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IF J=eM THEN 1980 ELSE T=1:M=20 

IF J<=M THEN D=0:L=12:GOTO 19890 
RETURN 

REM LOCATION PLUS AMOUNTS 

FOR [=8 TO 28 STEP 10:X¢CI)=X¢(1)+40 
NEXT: FOR I=4 TO 24 STEP 10 

XC IT)=XC€1)4+40:NEXT 

FOR I=10 TO 30 STEP 10 
XCI)=XC124+80:NEXT 

RETURN 

IF RR=3 THEN 2900 

GOSUB 1840:IF RR=2 THEN 2400 

IF WCF)=99 AND RR=1 THEN 4500 

Q=99 

IF wtT)<¢>-99 THEN 12000 

IF ABS(F-T)=6 THEN MX=1:GOTO 2145 
IF ABS(F-~T)=12 THEN MX=2:A=26:GOTO 2145 
GOTO 2300 

IF Wt(T)=1 THEN 12000 

IF FCT THEN 2165 

A=-A 

IF MX¥=1 THEN 2190 

IF MX=2 AND WCF+A)=-99 THEN 12000 
IF Mk=4 AND WC(F+A)=-99 THEN 12000 
IF RR=2 OR RR=3 THEN J=2 ELSE Je=1 
FOR T=X¢(F) TO X( F416 STEP J 
RESETCI,Y(F?):NE&RT 

FOR I=X(T) TO X(T)4+16 STEP J 
SETCI,Y(T)) : NEXT 

IF RR=2 OR RR=3 THEN 2500 

IF MX=2 OR MX=4 THEN 2270 
WCT)=WCF) WCF) &-99 

GOTO 2280 

WOT =WCP) -WOF) =-99 :-WCF4A) WCF?) : GOTO 
2700 

F=T:MX=0:KL=0:GOSUB 1860:ZC=1:GOTO 3120 
REM ALTERNATE PLAYER 

Fed :T=0:MX=0:A=0:Q=i 

IF WE>=2 THEN RR=2:GOTO 2100 ELSE RR=3: 
GOTO 2100 

IF ABS(F-T)=4 THEN MXK=3:GOTO 2145 
IF ABS(F-T)=8 THEN MX=4:A=4:GOTO 2145 
GOTO 12000 

REM OPPONENT (STEPPED SQUARES) 

IF WC(F)=1 AND RR=2 THEN 4500 

IF WCT)<>-99 THEN 12000 

IF ABS(F-T)=6 THEN MX=5:GOTO 2450 
IF ABS(F-T)=4 THEN MX=6:GOTO 2450 


2440 
24950 
24960 
2470 
2480 
2500 
2510 
2915 
2520 
2530 
2540 
2550 
2560 
2965 


2570 
2380 
2390 
2600 
2610 
2620 
2630 
2635 
2640 


2650 
2660 


2670 
2700 
2710 
2720 
2725 
2730 
27490 
Z27350 
2760 
2770 
2900 
2905 
2910 
2920 
29390 
2939 
2940 


2950 


GOTO 2580 

IF WCT)=99 THEN 12000 

IF FT THEN 21990 

REM RESET SQUARE 

GOTO 2190 

REM INTERCHANGE SQUARES (STEPPED) 
WOT) =WCF) WCF) e-99 

IF KK=1l THEN 2540 

IF MX=7 OR MX=8 THEN 2540 
KK=0:MX=0:A=0:RR=1:MM=0:GOTO 2100 
IF FCT THEN Az=~A: IF KK=1 THEN 2560 
WCF+tA) =-99 

GOTO 2700 

IF KK=1 THEN F=T: IF RR=2 THEN GOSUB 
1860:Z2C=#1:GOTO 3120 ELSE I=F:GOTO 2925 
GOTO 2530 

IF ABS(F-T)=8 THEN MX=7:GOTO 2610 
IF ABS(F-T)=12 THEN MX=8:GOTO 2610 
GOTO 2100 

IF W(T)=99 THEN 12000 

IF Mk=?7 THEN Az=-4:GOTO 24633 
A=-6:GOTO 2190 

IF RR=3 THEN 2190 

IF F¢(>16 AND Ft(O18 AND WCF+A=-99 
THEN 2660 

GOTO 2190 

IF F¢>20 AND F(022 AND WCF+A)=-99 
THEN 12000 

GOTO 2190 

REM RESET SQUARE (JUMP) 

FOR I=X(F+A) TO XCF+A)+16 
RESET(I,YC(F+A)):NEXT 

WCF) s-99:WCF+A) =WC(F): GOTO 4000 
REM MORE JUMPS ? 

REM TEST FORWARD AREAS 

l=T:AeQ 

IF RR=3 THEN MM=1 

GOTO 2935 

GOSUB 10060:REM COMPUTERS PLAY 
MG=0:MX=0:EE=0:Q=1:GOSUB 10080 
FOR I=2 TO 30 STEP 2 

IF WC(I)=99 THEN 2935 

NEXT: GOTO 3800 

IF [1>=24 THEN 2950 

IF W(Il+6)=Q AND W(1I+12)=QQ THEN 
Az=-12:GOTO 3100 

IF WCI+4)=Q AND WC(1I+8)=QGQQ THEN 
A=-8:GOTO 3100 
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2955 IF I<s10 THEN 2975 

2960 IF WCI-4)2Q AND WC I-8)=QQ THEN 
A=8:GOTO 3100 

2970 IF W(Il-6)=Q AND WCI-12)=QQ THEN 
A=12:GOTO 3100 

2975 IF RR=1 THEN 2290 

2980 IF RR=2 THEN 2530 

2990 IF MM=1 THEN MM=0:GOTO 2530 

$000 A=0:GOTO 3700 

31400 REM MOVE FEASABLE 

39105 IF RR=i THEN KL=1:GOTO 3260 

3110 IF RR=2 THEN KK=i:GOTO 3260 

3iii IF MM=i THEN KKe1 

3115 Fel: TeI-A:TT=T-A: IF Tr<=+0 TT=0 

$120 IF Fe2 AND T=10 THEN 3400 

3130 IF F=4 AND T=16 THEN 3400 

$135 IF ZC=1 THEN 3150 

3140 IF F=6 THEN 3250 

3150 IF F=i0 AND T=16 THEN 3400 

$152 IF ZC=i THEN 3160 

$155 IF F=10 THEN 3260 

3160 IF F=i2 AND T=20 THEN 3400 

3162 IF F=14 AND T=26 THEN 3400 

3165 IF F=1i4 AND T=6 THEN II=1:GOTO 3400 

$166 IF ZC=1 THEN 3189 

3170 IF F=i4 THEN 3270 

3180 IF Feié THEN 3310 

$185 IF F=ié AND T=22 THEN 3400 

3186 IF F=i16 AND T=22 THEN 3400 

3188 IF ZC=1 THEN 3200 

3190 IF F=20 THEN 3280 

$200 IF F=22 AND T=10 THEN 3400 

3201 IF F222 AND T=16 THEN 3400 

3202 IF F=22 AND T=30 THEN 3400 

3205 IF F=26 AND T=14 THEN 3400 

3210 IF F=24 AND T=16 THEN 3400 

9211 IF F=30 AND T=22 THEN 3400 

3215 IF F=30 AND T=16 THEN 3400 ELSE IF ZC21 


THEN 3500 
3220 IF F=26 THEN 3290 


3230 IF F=30 THEN 3300 

3240 IF F=22 AND T=30 THEN 3400 ELSE 3500 
3250 IF T=10 OR T=1i4 THEN 3400 ELSE 3500 
3260 IF T=2 OR T=6 OR T=22 OR T=24 THEN 3400 


ELSE 3500 

3270 IF T=6 OR T=26 THEN II=1:GOTO 3400 
ELSE 3500 

39280 IF T=12 OR T=ié6 OR T=26 THEN 3400 
ELSE 3500 
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3290 
3300 
3310 
3320 
3400 
3410 
3420 
3430 
3440 
3500 
3310 
3515 
3520 
3529 
3530 
3700 
3710 
3715 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3855 
3860 
3870 
3875 
3880 
3890 
3900 
94000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 


IF T=14 OR T=20 THEN 3400 ELSE 3500 
IF T=22 OR T=26 THEN 3400 ELSE 3500 
IF T=4 OR T=10 OR T=24 THEN 3400 
GOTO 3500 

REM WHICH TO WHERE 

IF RR=i THEN 2290 

IF RR=2 THEN 2530 

IF [il=s1 THEN I[1=0:GOTO 2530 

GOTO 3830 

REM CONT. JUMP 

IF RR=i AND ZC=0 THEN 2275 

IF RR=i AND ZC=1 THEN ZC=0:GOTO 2108 
IF RR=2 AND ZC=0 THEN 2565 

IF RR=2 AND ZC=#i THEN ZC=0:GOTO 2420 
IF RR=3 THEN 3700 

REM CHECK AHEAD / RE-TEST (COMPUTER) 
IF WCF-A)¢>-99 AND KK=0 THEN 2930 
IF A=8 OR A=-8 THEN MG=1 

IF A=12 OR A=-12 THEN MG=1 

IF MG=i THEN MG=0:KK=0:GOTO 2410 

IF I>=8 AND KK=0 AND EE=0 THEN 3780 
MX=MX+1 

IF MX¢=1 THEN 2910 

GOTO 2410 

IF BP>)=4 AND W(TT)=1 THEN 2925 

GOTO 3750 

REM ALTERNATE MOVES 

AD=1:MM=2:FOR [=30 TO 2 STEP-2 

IF WC1)=99 THEN EE=1:GOTO 3855 

IF KK=1 THEN 2410 ELSE NEXT 
RR=0:GOTO 4110 
KK=0:F=20:T=0:RR=1:A=0:GOTO 2100 

IF I¢=4 THEN 3875 

IF WCIl+~4)=QQ THEN A=4:GOTO 3100 

IF W(1I~6)=QQ THEN A=6:GOTO 3100 

IF [I>=26 THEN 3900 

IF WCI+4)=QQ THEN A=-4:GOTO 3100 

IF WCI+6)=QQ THEN A=-6:GOTO 3100 
GOTO 3830 

REM GAME COMPLETED ? 

IF RR=1 THEN 4040 

IF RR=2 OR RR=3 THEN 4070 

GOTO 2730 

BP=BP-1 

IF BP¢=0 THEN 4100 

GOTO 2730 

TP=TP-1 

IF TP<=0 THEN 4100 
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4090 


4100 
4110 


4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4245 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4400 
4405 
4410 
4420 
94430 
4440 
4450 
94960 
4470 
4480 
4500 
4510 
4320 
94330 
4540 
10000 
10010 
10020 
10030 
10040 
10050 
10060 
10070 
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GOTO 2730 


REM COMPLETE 
GOSVB 10030 


IF RR=Z2 THEN 4190 
IF RR=3 THEN 4190 
IF Ghet THEN 4170 


PRINT" YOU LOSE..... “7PS$(4) 
PSCFF)=P$(1):GOTO 4210 

PRINT'L HAVE LOST...":REM COMPUTER 
GOTO 4210 

PRINT"YOU HAVE LOST...";P$(1) 


PSC FF)=P$(2)>) 
REM CONTINUE / END 
IF WE<=2 THEN 4420 
REM 3 OR 4 PLAYERS 
WNS (FF) =sPS(PF): FR=FF+t 
IF AG=1 THEN 4410 
IF FF=3 THEN 4400 
IF WE=3 THEN P$(2)=P5(3):GOTO 4300 
P$C1)=P$(3):P$(2)=P$(4) 
PRINT P§¢(1);" YOU WILL NOW PLAY ";P$(2) 
GOTO 1310 
PRINT PSC(FF);" YOU WILL NOW PLAY "; 
PRINT P$(1) 
GOTO 1310 
REM FINAL 
IF WE=4 THEN 4450 
PRINT WN$(FF-1);" IS THE GRAND WINNER !!" 
PRINT 
PRINT"END OF PROGRAM RUN..." 
END 
AQ=1:P$(1)=WNS$(1):P$(2)=WNS$ (2) 
PRINT P$(1);" YOU WILL PLAY ";,P$(2) 
PRINT'TO DETERMINE THE FINAL WINNER." 
GOTO 1310 
REM NOT CORRECT PLAYER 
GOSUB 10030 
PRINT'IT §S NOT YOUR PLAY !!" 
GOSUB 10050 
GOTO 2100 
REM TIME LOOP 
FOR Q=i TO 5000:NEXKT 
RETURN 
PRINT@901, ; 
RETURN 
FOR Vs=i TO 1000:NEXT 
PRINT@901,S5TRING$ (50,32) 
IF T=0 RETURN 


10080 PRINT@965,"PLAYER...";P8$(RR); 
10085 IF RR=3 PRINT"COMPUTER"; 
10090 RETURN 

11000 GOSUB 10030 

11005 IF ZC=i THEN 11030 

11010 PRINT'** CANNOT RESPOND #x" 
11020 GOSUB 10050 

11030 F=0:T=0:RETURN 

12000 REM ERROR MESSAGE 

12010 IF RR=3 THEN 2905 

12020 GOSUB 11000 

12030 GOTO 2104 


Variables and Strings 


X,Y & W - Subscripted for piece set and reset locations, and the 
contents of squares W(D 

QQ - Used to test ahead to determine the status of a square. 

FF - Used for player, if more than one is playing 

YY - Number of players 

TN - Used to skip the instructions 

AA & A - Used for random selection of player’s turn 

RR - Used for player: RR=lis for solid pieces, and RR=2 is for 
stepped playing pieces 

IN$(D - Player's initials 

P$(D - Player’s initials, after random selection of first player 

WZ - Total number of players 

L,P & P1 - Used for setting up the game board, along with X, Y,J & K 

F & T - For inputs of numbers of the squares to move from and to 

MX - Status of playing piece, to test if legal 

J - Used again for stepped pieces if RR=2 or RR=3 

KL & ZC - Used to determine if a jump is legal 

KK & ZC - Same as above for stepped pieces 

A - For movement of piece forward or backward 

EE, MG & AD - For alternate move (if possible) by computer 

TP - Number of squares at the top of the field 

BP - Number of squares at the bottom of the field 

GL - Computer playing 

WNS3(FF) - Used if there are 3 or 4 players to determine the winner 

Q & U - For time loop (pause) 


Explanation of Program Lines 


Line 40 dimensions the X,Y, and W arrays for proper square 
and piece locations. 
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Line 50 sets the variable QQ to ~99 for piece identification for 
a possible jump. 

Line 60 sets the variables FF to 1. FF is used to determine the 
final winner when there are more than 2 players. 

Lines 70-150 ask if instructions are needed. If they are not TN 
will equal 1 and the instructions will be skipped. 

Lines 160-190 ask for the number of player's amount. If there is 
only 1, GL will equal 1, and the computer will play against the user. 

Lines 200-210 determine whether or not the instructions are 
needed. If they are not, the program branches to line 510. 

Lines 220-510 display the instructions for play 

Line 520 tests the value of YY (number of players). If YY is 
equal to 1, program branches to line 540. 

Line 530 sends program control to the appropriate lines for 2 or 
more players. 

Lines 540-600 determine who will play first, the user or the 
computer. 

Lines 610-780 let user enter each player’s initials. 

Lines 790-800 send program control to the appropriate lines if 
only | or 2 are playing. 

Lines 810-890 randomly select players (3 or 4) to determine 
who will play against whom. 

Lines 900-940 display a message for one player. 

Lines 970-1140 display a message indicating who will play 
against whom when 3 people are playing. 

Lines 1200-1300 display a message indicating who will play 
against whom when 4 people are playing. 

Lines 1310-1395 select who will play first and which type of 
playing piece he or she will have. 

Lines 1400-1830 set the graphics for the playing field (board) 
and all of the pieces. They determine the number of pieces and the 
value of each place: is assigned to the top pieces, 99 to the bottom 
pieces, and —99 to blanks. 

Lines 1840-1880, accept player inputs in response to the 
FROM and TO prompts. If FROM (F) is equal to 0 (zero), the player 
has just thrown in the towel, and the program will branch to either 
the termination routine or next player routine. 

Lines 1900-2090 establish the pieces and their locations on the 
playing board. 

Lines 2100-2270 along with lines 2300-2320 are used to move 
the solid pieces. 

Lines 2190-2240 are also used to move the stepped pieces. 
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Lines 2250-2270 are used to redefine the contents of the 
squares that were involved in the FROM and TO movement. 

Line 2275 are used for a possible double (or more) jump. 

Lines 2280-2295 allow the next player or the computer to input 
moves if RR = 3. 

Lines 2400-2660 work much the same as lines 2100-2270 
above, except these are for the stepped pieces. 

Lines 2700-2725 reset any square that has been jumped and 
delete one piece from the player that was jumped. Lines 4000-4090 
are used to determine whether or not the game is over. 

Lines 2730-2770 are used to determine if another jump might 
be possible. For this the program branches to line 2935-3530. If any 
of the conditions are met, the user will be allowed another jump. 

Lines 2900-3530 are for the computer’s pieces as well. These 
lines will determine if the computer can jump or just move. If no 
jumps can be made, lines 3700-3900 are used for movement from 
one square to another. If none of the conditions are met following 
the for-next loop beginning at line 3810 and ending at line 3830, the 
computer will terminate the program at line 3340. 

Lines 4100-4480 determine who won and who will play against 
whom in the next game. Ifall conditions are met, the grand winner is 
printed and the program terminated. 

Lines 4500-4540 prints message if a player is trying to move 
someone’s pieces other than his or her own. 

Lines 10000-12030 contain the necessary time loops, the turn 
determination routine, message CANNOT RESPOND if an illegal 
move is entered. 
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TPAC READING 


SB Fea py 5 


This game enables you to make all computer movement stop while 
you try and destroy the computer’s piece. All your decisions will 
have to be exact if you plan on doing this. To destroy the computer’s 
piece, your lasers must be at the right place at the right time. The 
amount of time you can hold the computer’s piece in one location is 
20 seconds. A long time you say? Run the program and see for 
yourself. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. Remember to 
use the proper value for SS in line 295. Refer to page 3. 


Sample Run 


HOLD TIME... 
INSTRUCTIONS? YES 


HOLD TIME...A MATTER OF HIGH OR 
LOW POINT TOTALS. THE COMPUTER'S 
CRAFT WILL BLIP ALL AROUND YOUR 
VIDEO, DOWN THE LEFT AND RIGHT 
SIDES WILL BE ASTERISKS. THESE 
ARE YOUR LASERS. AT THE INSTANT 
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Xx XX XX XXX XXX K XXX 
HOLD TIME = 20 


<X> 


*K OK Ok OK OK OK 
KOK OOK OK OK 


y TOTAL POINTS: 0 TIME LAPSE: 30% 
XXX XXXXXXXXXXXKXXXX XM 


YOU THINK THE CRAFT IS IN LINE 

WITH THESE, HIT THE ‘CLEAR’ KEY. 
YOUR LASERS WILL START MOVING 
TOWARD THE CENTER, THE COMPUTER 
CRAFT WILL ALSO CONTINUE TO MOVE 


PRESS ENTER? 


YOU CAN ‘HOLD’ THE COMPUTERS’ 

CRAFT FROM MOVING FOR AN AMOUNT 

OF TIME, ROUGHLY 20 SECONDS. 

YOUR SCORE WILL RANGE FROM 1500 TO 400, DEPEND- 
ING ON WHERE YOU 

DESTROY THE CRAFT (TOP OR BOTTOM 

OF THE VIDEO). THE TIME LIMIT FOR THE 

ENTIRE RUN WILL BE JUST ABOUT 

FIVE MINUTES. THIS WILL BE NOTED 

AT THE LOWER RIGHT OF YOUR VIDEO. 

THE COUNT STARTS AT 30. OH YES, TO ‘HOLD’ THE COM- 
PUTERS' 

CRAFT, HOLD DOWN THE ‘ENTER’ 


PRESS ENTER TO BEGIN? 
Program Listing 


100 REM PROGRAM TITLE: HOLD TIME 
110 CLS 


158 


115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 


240 
245 
250 
255 
260 
265 
2706 
275 
290 
295 
300 
305 
310 
315 
320 
325 
330 
335 
340 
345 
950 
355 


CLEAR 350 

RANDOM 

PRINT'HOLD TIME..." 

INPUT" INSTRUCTIONS (Y/N) ";2Z§ 

IF Z$="N" THEN CLS:GOTO 290 

PRINT 

PRINT"HOLD TIME...A MATTER OF HIGH OR" 
PRINT“LOW POINT TOTALS. THE COMPUTER'S" 
PRINT"CRAFT WILL BLIP ALL AROUND YOUR" 
PRINT" VIDEO. DOWN THE LEFT AND RIGHT" 
PRINT“SIDES WILL BE ASTERISKS. THESE" 
PRINT"ARE YOUR LASERS. AT THE INSTANT" 
PRINT" YOU THINK THE CRAFT IS IN LINE" 
PRINT"WITH THESE, HIT THE 'CLEAR' KEY." 
PRINT" YOUR LASERS WILL START MOVING" 
PRINT" TOWARD THE CENTER. THE COMPUTER" 
PRINT"CRAFT WILL ALSO CONTINUE TO MOVE." 
INPUT" PRESS ENTER"; %$:CLS: PRINT 

PRINT" YOU CAN HOLD THE COMPUTER'S" 
PRINT“CRAFT FROM MOVING FOR AN AMOUNT" 
PRINT"OF TIME, ROUGHLY 20 SECONDS." 
PRINT" YOUR SCORE WILL RANGE FROM 1500" 
PRINT"TO 400, DEPENDING ON WHERE You" 
PRINT"DESTROY THE CRAFT (TOP OR BOTTOM" 
PRINT"OF THE VIDEO). THE TIME LIMIT FOR 
THE" 

PRINT" ENTIRE RUN WILL BE JUST ABOUT" 
PRINT" FIVE MINUTES. THIS WILL BE NOTED" 
PRINT" AT THE LOWER RIGHT OF YOUR VIDEO." 
PRINT"THE COUNT STARTS AT 30." 

PRINT"OH YES, TO HOLD THE COMPUTER'S" 
PRINT"CRAFT, HOLD DOWN THE ‘ENTER'" 
PRINT"KEY..... " 

INPUT" PRESS ENTER TO BEGIN"; X$:CLS 

REM CRAFT/SOUND LOCATION 

C$a"CX9": 55231266 

REM OUTER GRAPHICS/POINTS 
Q$=STRING$(63,492):M=474 
G=0:PI=16:PRINT@O,Q$; :PRINT@960,Q$; 
PRINT@i21,"20";:FOR X=64 TO 896 STEP 64 
PRINT@X,LEFT$(Q§,1); 
PRINT@X+63,LEFT$(Q$,1)2;:GOTO 460 

IF MM<>0 GOSUB 355:NEXT ELSE NEXT 
PRINT@O,CHR$ (30); :PRINT@960,CHR$(30) ; 
FOR X=64 TO 896 STEP 64 

PRINT@X ,CHR$ (32); : PRINT@X+63,CHR5 (32>); 
GOSUB 355:NEXT:GOSUB 355:GOTO310 
PRINT@954,ABSCINT(TT/60)-30); 
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336 
360 
365 
370 
375 


380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 
445 
450 
435 
460 
965 
470 
475 
480 
985 
490 
495 
500 
$05 
310 
515 
320 
925 
$30 
935 
340 
345 
350 
335 
360 
965 
570 
3795 
$80 
385 
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PRINT@MM,STRINGS§(5,32); 
PRINT@M,C$;:TT=TT+i 

IF TT>=1800 THEN 800 
MM=M:W=PEEK(14400) 

IF W=1 AND G(=20 THEN G=G+.4:GOSUB 
750: RETURN 

XX=RND(4):REM CRAFT MOVE 

ON KX GOTO 390,400,410,420 

REM LEFT MOVE 

M=sM-RND(5):GOTO 445 

REM RIGHT MOVE 

M=M+RND(5):GOTO 445 

REM UP MOVE 

M=M-64:GOTO 445 

REM DOWN MOVE 

M=M+64:I1F PEEK(16258)=32 GOSUB 670 
IF PEEK(C16303)=32 GOSUB 676 

IF PEEK(15426)=32 GOSUB 670 

IF PEEK(15470)=32 GOSUB 670 

IF M<(=466 THEN 420 

IF M>=950 THEN 410 

POKE SS,13:NN=<USR(0):RETURN 

REM FIRE 

IF X<=832 THEN W=PEEK(14400? 
PI=PI-1:1F W=0 THEN 330 

IF W=2 THEN 485 

GOTO 330 

REM LASER ADVANCE 

IF X)>)=896 OR X<=127 THEN 330 

H=X -H1i2#H+15360:H2=H1+63:UN=JN+1:52=100 
IF RP=1 PRINT@81,ABS(R-UN); 

POKE H1,32:POKE H2,32:POKE SS,S2 
IF PEEK(H1+1)¢232 OR PEEK(H2Z2-1)()32 THEN 335 
H1=Hi+1:H2=H2-1:$2=S2-1:NN=USR(0>) 
POKE Hi,42:POKE H2,42 

IF ABS(H2~15360-X)=Q THEN 850 
GOSUB 355:GOTO 3505 

REM DIRECT HIT 

POKE Hi,42:POKE 85,14 

IF PEEK(H2-1)¢>32 THEN 365 

POKE H2,32:H2=H2-1 

POKE H2,42 

NN=USR(0):GOTO 545 

REM DELETE 

Z=1:POKE H1,32:POKE H2,32 
N=M+15360:Si1-220 

POKE N,32:POKE N+1,32 

POKE N+2,32 


390 
595 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
6465 
670 
675 
680 
685 
690 
695 
700 
703 
710 
715 
720 
725 
730 
735 
740 
745 
750 
735 
760 
765 
770 
775 
780 
785 
790 
795 
800 
805 
810 
815 
820 
825 


J=RND(S5) 

IF N+J3+64¢=169319 THEN 605 

GOTO 625 

POKE N+J+64,42:POKE N+J-64-J, 42 
FOR I=1 TO J*10:NEXT 

POKE N+J4+64,32:POKE N+J-64-0,32 
GOTO 640 

POKE N+J~64,42:POKE N+J-64-J,42 
FOR I= TO J*10:NEXT 

POKE N+J-64,32:POKE N+J-64-J,32 
IF Z2¢=?7 THEN 655 

POKE 88,255 :NN=USR(0) 


TF RP=0 GOTO 660 ELSE PI=PI+1i:GOTO 665 


Z22Z+1:POKE SS,S1:NN=USRi0):GOTO 590 


PIePI4+1:X$=X$+4"+" 
PP=PP+PI*100:GOSUB 670:GOTO 850 


A$="TOTAL POINTS: ":T$="TIME LAPSE: " 


F=898 

FOR I=1 TO LEN(CA$) 

PRINT@F+45 ,MID§(T$,1,1); 
PRINT@F,MID$(A$,1,1); 
F=F+1i1:NEXT 

PRINT PP;:I1F RP=1 THEN 710 

IF X$=""RETURN 

REM RESERVE POWER 

R$="RESERVE POWER: " 

F=é6 . 

FOR I=1 TO LENCR$) 

PRINT@F ,MIDS(R$,1,1),; 
FeFe1:NEXT 

IF RP=1 THEN X$=STR§(ABS(R-UN)) 
PRINT X$; 

TI$="HOLD TIME:":REM HOLD TIME 
IF PEEK(15470)(>32 THEN 770 
Feil10:FOR I=1 TO LEN(TI$) 
PRINT@F,MIDS(TI$,1,13;:F=#F+e1:NEXT 
PRINT@120, INT(ABS(G-20)),; 
RETURN 

REM TIME REMAINING 

IF RP=i THEN DkK=1:GOTO 860 

IF TT>=1800 THEN 6800 

GOTO 300 

FOR Tis=i TO 1200:NEXT 

CLS: R=LEN(X$)> 

IF R=0 THEN 910 

PRINT"'VERY WELL DONE...." 
PRINT" YOU HAVE ";R;"UNITS OF" 
PRINT" RESERVE POWER...." 
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830 PRINT" PRESS ENTER TO USE", 
835 INPUT X§:TT=0:RP=1:UN=90 
840 CLS 

845 GOTO 3060 

850 REM UNITS DELETE (RESERVE) 
855 IF RP=0 THEN 330 

860 IF UN>=R THEN 875 

865 IF DK=0 THEN 330 

870 DK=0:GOTO 790 


875 REM FINISH 

880 FOR Ti=i TO 1200:NEXT 

885 CLS 

690 PRINT"RESERVE POWER EXHAUSTED...." 
895 PRINT" TOTAL POINTS ACCUMULATED:"; PP 
900 PRINT 

905 GOTO 93 

910 PRINT"YOU HAVE DESTROYED NOTHING." 
915 PRINT" YOU HAVE NO RESERVE POWER." 
920 PRINT 

925 GOTO 895 

930 PRINT 

935 PRINF"END OF RUN." 

970 END 


Variables and Strings 

C$ - Computer's craft 

SS - Sound location (machine routine) 

Q$ - Outer graphics, asterisks 

M,MM - Location of computer craft 

PI - Points, total times 100 

G - Hold time—holding of computer craft 

TT - Amount of playing time 

W - Key closure (PEEK) 

XX - Random craft movement 

NN - USR Call for sound output 

H - Location of asterisk when laser fired 

H1,H2 - Laser advanced toward center then outward 
S2 - Also for sound output 

UN - Reserve units used, not valid until RP=1 

RP - On reserve power 

Z - General, for flashing of destroyed craft 

N - Location of computer craft when destroyed 

J - A random amount used to flash asterisks above or below craft 
X$ - Reserve units, if user’s craft destroyed 
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PP - Total outstanding points 

F - Print @ locations, messages 
A$,T$,R$, & TI$ - Messages 

R - Reserve units, total 

DK - Finish of game 


Explanation of the Program Lines 


Line 115 clears 350 bytes of memory for string storage. 

Lines 125-275 display the instructions for playing. 

Line 295 sets C$ to the computer's craft and initializes the 
variable SS for the sound routine. 

Lines 300-430 print the graphics near the edges of the screen 
and control the movement of the computer’s craft. The craft is 
moved a random amount distance, determined between lines 370 
and 415. Line 366 tests whether the enter key is being held and 
variable G is less than or equal to 20. Variable TT (line 362 is 
checked to see if the time has expired for the run. The peek 
statements in lines 415-418 are used for the print messages. If the 
computer's craft happens to blank out any letters of these messages, 
they will be reprinted as soon as possible. Lines 420 and 425 keep 
the computer’s craft within limits. 

Line 430 outputs a beep sound each time the craft moves. 

Lines 500-565 enable the user to fire the laser. Here the 
asterisks are moved toward the center of the video. If a hit is 
detected (line 545) the program branches to line 570. Line 565 
continues the movement of the computer's craft, if the Enter key is 
not being held down. Line 560 tests the value of H2 for stopping the 
laser attack. 

Lines 570-676 and 685 detect or destroy the craft and flashes 
asterisks at its location. 

Line 680 tests whether or not user is on reserve power. 

Lines 690-695 increase the variable PI by 1 and then multiply 
that amount by 100 to determine your score (line 695). X$ in line 
690 is then increased by one + (plus sign) to indicate added units of 
reserve power. 

Lines 700-795 print messages and amounts. 

Lines 800-830 again test the value TT to determine whether or 
not the garne is over. 

Lines 835-875 tells the user how many units of reserve power 
he or she has. (The player receives one unit for each computer craft 
destroyed). Then the user presses the enter key to begin using the 
reserve laser power. 
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Lines 900-920 test the amount of UN (reserve power) to see if 
it has all been used. 
Lines 925-990 display the final message and the total score. 
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DANGEROUS AFFAIR 


All of your life you’ve wanted to be a spy, a double agent that would 
help his country in time of need. Here’s your chance. Through 
messages you will relay, the computer will test to see if you would 
actually make a good spy. Some of the messages will be straight 
while others will be coded. There are agents (besides you) that will 
accidently forget the message you’ve given them, so try to re- 
member each...very, very well. Remember to use the proper value 
for L in line 250. Refer to page 3. 


Sample Run 


>> DANGEROUS AFFAIR << 


SEE OUTLINE? MAYBE 
TRY A YES OR A NO ANSWER. 


SEE OUTLINE? YES 
SO YOU WANT TO BE A SPY AND YOU 
THINK YOU'D BE A GOOD ONE AT 
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THAT? THIS PROGRAM WILL SOON 
LET YOU KNOW. YOU MUST FOLLOW 
AND PASS ALONG ANY INSTRUCTIONS THAT 
WILL BE GIVEN TO YOU; SOME 

OF THEM WILL BE CODED, WHICH 
MEANS YOU'LL HAVE TO BREAK 

THE CODE BEFORE PASSING THE 
INFORMATION GIVEN. 

REMEMBER TO PASS INFORMATION 
EXACTLY AS IT IS GIVEN TO YOU 
(EXCEPT WHERE CODED), 

FIRST NAME? 005 


PASS THIS ALONG: 

.M.P 4 TA .TS NIAM OT OG 

WHAT WAS THAT MESSAGE? 005 
PLEASE REPEAT 


PASS THIS ALONG: 
NADES KCALB A NI TEG 


WHAT WAS THAT MESSAGE? 005 
| MISSED PART OF IT 


PASS THIS ALONG: 
ANSWER THE PHONE AT 4TH ST. 


WHAT WAS THAT MESSAGE? 005 
ANSWER A PHONE AT 4TH STREET 


PASS THIS ALONG: 
GO TO THE 12TH ST. BRIDGE 


WHAT WAS THAT MESSAGE? 005 
GO TO A BRIDGE AT 12TH STREET 


PASS THIS ALONG: 
NOITCES F/D ROF ELIF AERA TEG 


WHAT WAS THAT MESSAGE? 005 
SOMETHING ABOUT A NOTICE? 
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START 


PRINT INSTRUCTIONS 
INPUT NS(NAME) 


READ DATA/M=1 


N 


OUTPUT 
MESSAGE 
OUTPUT 
CODED 
MESSAGE 


INPUT M$ 


N 


Flowchart for Dangerous Affair. 


CLOSING 
MESSAGE 


STOP 


INPUT PAST 
MESSAGE 


167 


AGENT 28 DID NOT RECEIVE 
MESSAGE # 5, WHAT WAS 

IT, 005? 

YOU TELL ME 

PASS THIS ALONG: 

MEET HARRY AT 1ST ST. BAR 


WHAT WAS THAT MESSAGE? 005 
MEET HARRY AT BAR 


PASS THIS ALONG: 
YRRAH FO ESOPSID 


WHAT WAS THAT MESSAGE? 005 
| FORGOT REPEAT O.K.? 


STOP 


This was not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: DANGEROUS AFFAIR 

20 RANDOM: CLS 

30 CLEAR 500:DIM M$(21)> 

50 PRINT">> DANGEROUS AFFAIR <<" 

60 PRINT 

70 INPUT"SEE OUTLINE"; X§ 

60 IF X$="YES" THEN 120 

90 IF X$="NO" THEN PRINT:GOTO 240 

100 PRINT"TRY A YES OR A NO ANSWER." 

110 GOTO 60 

120 PRINT"SO YOU WANT TO BE A SPY AND YoU" 

130 PRINT"THINK YOU'D BE A GOOD ONE AT" 

140 PRINT“ THAT? THIS PROGRAM WILL SOON" 

150 PRINT"LET YOU KNOW. YOU MUST FOLLOW" 

160 PRINT"AND PASS ALONG ANY INSTRUCTIONS 
THAT" 

170 PRINT'WILL BE GIVEN TO YOU; SOME” 

180 PRINT"OF THEM WILL BE CODED, WHICH" 

190 PRINT"MEANS YOU'LL HAVE TO BREAK" 

200 PRINT"THE CODE BEFORE PASSING THE" 

210 PRINT" INFORMATION GIVEN." 

220 PRINT'REMEMBER TO PASS INFORMATION" 


230 
235 
240 
2350 
260 
270 
280 
270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
960 
470 
480 
490 
500 
$10 
320 
$30 
340 
350 
360 
370 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


PRINT"EXACTLY AS IT IS GIVEN TO YOU" 
PRINT" CEXCEPT WHERE CODED). 

INPUT" FIRST NAME";N$ 
CLS:M=1:L=31266 

REM GET MESSAGES (INFORMATION) 

FOR I=i TO 20 

READ M$(1I):NEXT 

DATA GO TO MAIN ST. AT 4 P.M. 

DATA GET IN A BLACK SEDAN 

DATA ANSWER THE PHONE AT 4TH ST. 
DATA GO TO THE 12TH ST. BRIDGE 
DATA GET AREA FILE FOR D/F SECTION 
DATA MEET HARRY AT 1ST ST. BAR 
DATA DISPOSE OF HARRY 

DATA GIVE THE D/F FILE TO INTER CG 
DATA RETURN TO MAIN ST. AT 11 P.M. 
DATA GET IN BLUE/WHITE HARDTOP 
DATA RECEIVE CODED MESSAGE FROM DRIVER 
DATA GIVE MESSAGE TO RHONDA 

DATA DUMP HER THEN STEAL HER CAR 
DATA DRIVE IT TO 31ST ST. EXIT 
DATA DESTROY THE CAR 

DATA GO TO LAST FLIGHT AIRPORT 
DATA BOARD THE 3 A.M. FLIGHT 

DATA LEAVE PLANE AT LYTERA AIRPORT 
DATA GIVE CODED MESSAGE TO MAN AT GATE 
DATA RETURN TO PLANE AT 3 P.M. 
PRINT" PASS THIS ALONG: " 

FOR Y=i TO 2 

CR=RND(3):1F CR=3 THEN $90 

NEXT: IT=1:J=LEN(M$ (M)) 

PRINT MIDS(M$(M),1,1),; 

POKE L,ASC(MIDS(MS(M),1,1)2445 
A=USR(0) 

T=I¢41 

IF I>J THEN 700 

GOTO 530 

REM CODE IT 

FOR Ye1 TO 2:CC=RND(2) 

NEXT 

I=LEN(M$(M)):J=1 

IF CC=2 THEN 690 

PRINT MIDS(MS8¢(M),1I,1); 

POKE L,ASC(MIDS (M$(M),1,1)9)+4+60 
A=USR(0) 

I=I-i:IF I=0 THEN 700 

GOTO 6390 

K$=STR$ (CASC(MIDS (M5(M),1,1) > 
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6953 PRINT K$;:GOTO 650 

700 REM PAUSE 

710 IF CC=1 OR CC=2 THEN 800 

720 FOR W=1 TO 400:NEXT:CLS 

730 PRINT"WHAT WAS THAT MESSAGE ";N$ 
740 INPUT M$ 

750 IF M$<>MS8(M) THEN WM=WM+1 

760 M=M+1 

770 ITF M=21 THEN 100600 

780 FOR W=1 TO 1000:NEXT 

790 CLS:GOTO 850 

800 REM LONGER PAUSE 

810 FOR W=1 TO 2500:NEXT 

820 CR=0:CC=0:GOTO 720 

830 REM DID NOT RECEIVE OR FORGOTTEN 
860 IF M>)=6 AND M¢=16 THEN &80 

870 GOTO 490 

880 Y=RND(2> 

890 IF Y=1 THEN 490 

900 Y=sRND(M): AG=RND(100) 

910 PRINT"AGENT";AG;"DID NOT RECEIVE" 
920 PRINT'MESSAGE #";¥;", WHAT WAS“ 
930 PRINT" IT ";N$ 

940 INPUT M$ 

950 IF MS<oMSC(CY) THEN WM=WM+1 

960 CLS:GOTO 490 

1000 REM END 

1010 IF WM>=#10 THEN 1070 

1020 PRINT"YOU'VE DONE ALRIGHT ";NS$ 
1030 PRINT" YOU NOW CAN BECOME A" 
1040 PRINT"COMPUTER SPY, AND" 

1050 PRINT"PASS MESSAGES..." 

1060 GOTO 1130 

1070 PRINT"GOOD GRIEF, TURKEY !!!" 
1080 PRINT"YOU FAILED";WM;"OF THE" ;M-1 
1090 PRINT"MESSAGES GIVEN TO YOU." 
1100 PRINT"TO YOU THIS WAS NOT A" 
1110 PRINT"DANGEROUS AFFAIR; IT WAS" 
1120 PRINT"A LOST MISSION !11" 

1130 PRINT 

1140 PRINT"END OF PROGRAM..." 

1150 END 


Variables and Strings 


N§ - First name of user 
M$(I) - Information messages 
M - Counter, messages given 
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L - Machine language address 

CR,CC - Used to code message 

J - Length of M$(M), which is the message if the message is not 
coded. 

If the message is coded, I is the Length of M$(M) 

M§ - User input of message 

WM - Wrong message entered 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
dimensions M$. 

Lines 50-235 display the instructions, if they are required. 

Line 240 inputs the user’s first name. 

Line 250 clears the video and initializes the variables M and L. 

Lines 260-280 read the data elements into the M§ array. 

Line 490 begins the actual entries. 

Lines 500-510 branch to the message encoding routine if CR is 
equal to 3. 

Line 520 initializes the variables I and J. 

Lines 530-580 display the message in uncoded form and pro- 
duce a sound for each letter. 

Lines 590-695 output the messages in simple coded form (if 
CR =3). The message will be printed in one of two ways, depending 
on the value of CC. 

Lines 700-720 allow a pause before the video is cleared. A 
longer pause is allowed if message was printed in code. 

Lines 730-790 allow the user to pass the message he or she was 
just given. If the message is incorrect, the variable WM will be 
increased by 1. If all messages have been used (M = 21), the pro- 
gram branches to line 1000. 

Lines 850-960 further test the user’s memory by asking him to 
repeat earlier messages, if M>= 6, M<= 16, and Y (random is 
equal to 2. Again, if the response is incorrect, counter WM will be 
increased by 1. 

Lines 1000-1150 print a final message and terminate the pro- 
gram. 
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PENNIES OR DOLLARS 


Now here is the opportunity you’ve been longing for: you can get 
rich, starting with only $50.00. Use your head when you make each 
loan or investment, and you'll be loaded with computer money. Fail, 
and you'll end up with less than you started with. You’ll be surprised 
at how fast time flies when the loans start getting paid back. And of 
course, there are loans that will be defaulted on and investments 
that will bomb and do nothing else; watch out for these. 


Sample Run 


$$$ PENNIES OR DOLLARS $$$ 


ALL YOU HAVE TO YOUR NAME IS 
$50.00 DOLLARS. BUT YOU 

HAVE COME UP WITH A SCHEME TO 

MAKE SOME GOOD MONEY. YOU HAVE 

DECIDED TO MAKE LOANS AND TO 

INVEST IN SOME PROJECTS. WHO- 

EVER YOU MAKE A LOAN TO WILL 

NATURALLY HAVE TO PAY IT BACK 

WITH INTEREST. AND WHATEVER 

YOU INVEST IN COULD MAKE YOU 
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Flowchart for Pennies or Dollars. 


BROKE 
MESSAGE 


TOO RICH TO 
CONTINUE 
MESSAGE. 
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A MINT...IF YOU MAKE 
THE RIGHT INVESTMENTS. 


PRESS ENTER? 
YOUR INITIALS? D.C. 


D.C. YOU'LL HAVE TO BE CAREFUL 
HOW YOU LOAN MONEY 

OR HOW MUCH YOU INVEST. DON'T 
GET GREEDY, OR YOU’LL PROBABLY 
LOSE EVERYTHING. 


PRESS ENTER TO BEGIN YOUR VENTURE? 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM PENNIES OR DOLLARS 

360 CLEAR 2060:CLS:DIM TAC20),LEL(20) 

40 PRINT"$$$ PENNIES OR DOLLARS $$" 

50 PRINT 

60 INPUT" INSTRUCTIONS REQUIRED (Y/N}";X8 
70 D=S0:DS2"6S6G88G8 . 29" : RANDOM 

80 IF X$="N"“ THEN 220 

90 PRINT'ALL YOU HAVE TO YOUR NAME I8" 
95 PRINT USING D$;D; 

100 PRINT" DOLLARS. BUT you" 

110 PRINT'HAVE COME UP WITH A SCHEME TO" 
120 PRINT"MAKE SOME GOOD MONEY. YOU HAVE" 
130 PRINT"DECIDED TO MAKE LOANS AND TO" 
140 PRINT"INVEST IN SOME PROJECTS. WHO-" 
150 PRINT"'EVER YOU MAKE A LOAN TO WILL" 
160 PRINT"NATURALLY HAVE TO PAY IT BACK" 
170 PRINT"WITH INTEREST. AND WHATEVER" 
180 PRINT" YOU INVEST IN COULD MAKE YOU" 
190 PRINT"A MINT...IF YOU MAKE" 
200 PRINT"THE RIGHT INVESTMENTS. “ 
210 INPUT" PRESS ENTER"; X6:CLS 
220 INPUT" YOUR INITIALS"; 1& 
229 IF I$="" PRINT'PLEASE, ";:GOTO 220 
230 PRINT I$;" YOU'LL HAVE TO BE CAREFUL" 
240 PRINT" HOW YOU LOAN MONEY (AMOUNTS) “ 
250 PRINT"OR HOW MUCH YOU INVEST. DON'T" 
260 PRINT'GET GREEDY, OR YOU'LL PROBABLY" 
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270 
280 
290 


300 
310 
320 
325 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
510 
520 
530 
340 
$50 
560 
565 
570 
580 
$90 
600 
610 
620 
630 
640 
645 
650 
660 
665 
670 
675 
680 


PRINT"LOSE EVERYTHING." 


PRINT: DIM AI(100),AR(20),AL(20),LA(20) 


INPUT" PRESS ENTER TO HEGIN YOUR 
VENTURE" ; X$ 

CLS: R=1:V=#129:VV=0 

GOSUB 320:GOTO 710 

REM CHART 

IF ZT=1 THEN $40 

FOR X=0 TO 127 
SET(X,4) : NEXT: Te1:ZT=1 

GOSUB 430 

IF X<>4 THEN K=X+?7 

FOR LT=1 TO LENCA$> 

PRINT TABCX) MIDS$(A$,LT,1); 
X=X41:NEXT 

InI+1 

IF I#6 THEN 540 

GOTO 350 

ON I GOTO 440,460,480,500,520 
A$="ASSETS"” 

X=4: RETURN 

A$="LOANS" 

RETURN 

A$=z" INVESTED" 

RETURN 

A$S="RETURNED" 

RETURN 

A$="LOST" 

RETURN 

IF TH=1 THEN $80:REM AMOUNTS 
TA(R) =D 

LL(R)=L: LACRI=LA 

IF GK=ei OR IJ=1 THEN RETURN 
IF M<>0 RETURN 

X=V:ilTexi:1V=«0 

GOSUB 645 

PRINT@X+1,USING DS§;T; 
X=X+13:I1F X>=959 THEN GOTO 1660 
TeI¢+i 

IF ©>5 RETURN 

GOTO 590 

REM AMOUNT FOR T 

ON I GOTO 660,670,680,690,700 
IF R=13 AND M=14 THEN T=TA(R+1) 
T=TACR) : RETURN 

IF R=13 AND M14 THEN T=LL(R+1) 
T=LL(CR) : RETURN 

T=AI(R): RETURN 


: RETURN 


: RETURN 
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690 
700 
710 
715 
720 
721 
725 
730 
740 
730 
759 
760 
765 
770 
780 
790 
800 
810 
820 
830 
840 
aso 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
9990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
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T=AR(CR) : RETURN 
T=AL(R) : RETURN 

IF Dt=6é AND PR=0 THEN 1150 
PRINT@960," PRESS ENTER", 

Z2T=0: INPUT X$:I1F GK=1 THEN 1680 
CLS: PR=0 

IF 2Z=1 GOSUB 1220 ELSE IF 2Z=2 GOSUB 1380 
REM LOAN/ INVESTMENT 

T=RND(2 > 
ON I GOTO 755,1430 

PRINT" YOUR ASSETS ARE NOW: "; 
PRINT TAB(23) USING D§;D 

PRINT"'A LOAN FOR APPROVAL ";I85;":" 
L=INT(D-RND(10)):I1F D¢=5 THEN 2100 
IF L<s3 THEN 770 

PRINT"LOAN AMOUNT: ";TAB( 20) USING DS$;L 
PS=2"8 .#%" :LA=L:GOSUB 1280 

PRINT" PERIODIC RATE: "; 

PRINT TAB(C25) USING P$;PE 
PS="#8. 8%" 

PRINT" ANNUAL RATE: "; 

PRINT TAB(24) USING P$;PE*12 
REM LENGTH OF PAYBACK (MONTHS) 

IF ~L>=1 AND L¢=100 THEN PB=12 

IF L>=#=101 AND L¢é=1000 THEN PB=24 
IF L>=1001 AND L¢=9000 THEN PB=36 
IF L>=9001 AND L¢=19000 THEN PB=48 
IF L>=19001 THEN PB=240 
REM AMT. BY PERCENT 
FC=L*PB/100:L=L+FC 
PRINT" FINANCE CHARGES: "; 
PRINT TAB(20) USING D$;FC 
PRINT"TOTAL OF LOAN:"; 
PRINT TAB(20) USING D$;L 
PRINT" PAYMENTS: "; 
PRINT TAB( 20) USING D$;L/PB 

PRINT 

INPUT" APPROVE (Y¥/N)";A6 

IF AgS="Y" THEN 1040 

GOTO 721 

D=D-LA: IF HJ=1 THEN 1800 

CLS:IF HJ=0 THEN R=R+1:M=R:GOSUB 540 
MeR:R=1:TH=1 

GOSUB 320 

IF R(CM THEN 1100 

GOTO 1120 

R=R+i:V=V+64 

GOTO 1070 


1120 REM PAYBACK 

1130 IF D<=6 THEN 1150 

1140 V=129:TH=0:GOTO 710 

1150 REM LOAN AMOUNT 

1160 FOR U=1 TO M 

1170 IF LLUCU)<>0 THEN 1320 

1175 NEXT: PR=1 

1180 IF GkK=1 RETURN ELSE GOTO 1140 

1190 D=D+LL(U) : AR=AR+LL(U):GOSUB 2300 
1200 LL(U)=0:LACU)=0:L=0:I1F GK=1 THEN 1220 
1205 R=R+1:GOSUB 550:GOSUB 1920 

1210 Z2Z=1:GOTO 11406 

1220 PRINT: REM RETURNED 

1230 PRINT"LOAN #";RND(10000);"HAS BEEN" 
1240 PRINT"PAID IN FULL. AMOUNT "; 

1245 PRINT USING D§&;AR 

1250 PRINT'TOTAL ASSETS NOW:";USING DS;D 
1260 FOR W=i TO 2000:NEXT 

1270 AR(R-1)=AR:AR=0:2Z=0:CLS:RETURN 

1280 REM PERCENT 

1290 PE=1 

1300 PE=PE+RND(.9) 

1310 RETURN 

1320 REM AMT. LOST 

1330 LK=RND(4) 

1340 IF LK=1 OR L~K=4 THEN 1190 

1345 IF D-LACU)<=6 AND TF=0 THEN 1190 
1348 IF U=i3 THEN U=14 

1350 D=D-LA(U) : AL=AL+LA(U) 

1360 LELCU)=0:LAC(U)=0:L=0:IF GK=1 THEN 1380 
1365 R=R+1:GOSUB 550 

1370 ZZ=2:GOTO 1130 

1380 PRINT: REM LOST 

1390 PRINT"LOAN #";RND(10000); "HAS BEEN" 
1400 PRINT"“DECLARED DEFAULT, SORRY." 

1410 PRINT“ AMOUNT LOST: ";USING D$;,AL 

1420 GOTO 1250 

1430 REM INVESTMENT 

1431 IF VV>=101 THEN GOSUB 2200:GOTO 750 
1432 IF D¢=15 OR R¢(=2 THEN IT=1:GOTO 750 
1435 PRINT"A POSSIBLE INVESTMENT..." 

1440 IV=RND(5000):1F IV)D+5 THEN 1440 
1445 IF D-IV<=10 THEN [=1:1V=0:CLS:GOTO 750 
1450 PRINT" YOU CAN NOW MAKE AN INVESTMENT." 
1455 IF HJ=i THEN 1510 

1460 PRINT"IF AND WHEN IT PAYS OFF YOU" 
1470 PRINT"WILL RECEIVE A % FOR EVERY" 
1480 PRINT"LOAN YOU MAKE. IF IT DOES NOT" 
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1490 
1500 
1505 
1310 
1520 
1330 
1340 
1350 
1360 
1965 
1370 
1375 
1380 
1590 
1600 
1610 
1660 
1670 
1680 
1690 
1700 
1716 
17290 
1730 
1740 
1750 
1800 
19810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1915 
1920 
1925 
1930 
1940 
1950 
1955 
1960 
19695 
1970 
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PRINT" PAY OFF YOU WILL LOSE A %" 
PRINT"WITH EVERY LOAN YOU MAKE.” 
PRINT" (PERCENT BASED ON CURRENT RATES)" 
PRINT" INVESTMENT #";RND(500) 

PRINT" AMOUNT NEEDED: ";USING D&;IV 
PRINT 

INPUT" INVEST (Y/N)";A5 

IF A$S="¥" THEN VV=VV#+1:GOTO 1565 
CLS:Is1:i1V=#0:GOTO 750 

IF VV=i01 THEN 1431 

D=D-1V 

AI(VV) sIV:HJ=1 

TA(R)=D:GOTO 13606 

REM RESET INVEST AMOUNTS 

AR=0:AL=0 

GOTO 1050 

REM RESET VARIABLES 
V=21l29:K2V:GKel1:GOTO 715 

CLS: D=TACR+1):FOR Usi TO M 

IF LE¢Y¥)<)0 THEN 1710 

GOTO 1720 

GOSUB i166 

LL(YU) #0: ARCU) #9 
AL(U)=0:LA(CU)=0:NEKT 

R=1:GOSUB 550:GOSUB 1910 
GK=0:TH=0:Re1i:M=0:GOTO 721 

REM INVESTMENT PER % 

IJ=1:FOR U=t TO M:LK=RND(6) 
PB=(AICU)D/PED/ 5 

IF AI(U)<¢20 THEN 1850 

NEXT: IJ#0:R=eR+1:GOSUB 1910:GOTO 1390 
IF LK=1 OR LK=3 OR LK=6 THEN 1880 
DeD+PB:AR=PB:AR(R)=AR 

GOSUB 2300:GOTO 18990 
D=D-~PB:AL=PB:AL(R)=#AL 
TACR+1)=D:GOSUB 360 

GOTO 1840 

REM AMOUNT TO TRUST FUND 

IF TF(>)0O PRINT" PROCESSING TRUST FUND..." 
TS="SSRR8E, S44, 884. GR" 

IF D>#25000 THEN 1940 

IF TE<>0 THEN 1955 ELSE RETURN 
TF=TF+1000:D2#D-1000: PM=1 
TDe=eTD+1000:GOTO 1925 

TACR+1})=D:IF PM=-0 OR RF=1i RETURN 
PRINT" PROCESSED TO FUND ";USING TS ;TD 
PRINT" TOTAL AMOUNT OF ";USING TS ;,TF 
PRINT"IS NOW IN A TRUST FUND" 


1980 PRINT"FOR YOUR USE “;I8;"." 

1990 FOR W=i TO 1000:NEXT: PM=0:TD=0: RETURN 
2000 REM BUSTED 

2010 PRINT: D$="$S8 84" 

2020 PRINT'SORRY, YOUR LOANS OR INVESTMENTS" 
2030 PRINT"DID NOT PAY OFF FOR YOU ",1& 
2040 PRINT" YOUR TOTAL ASSETS ARE TOO LOW" 
2050 PRINT"TO CONTINUE ("; 

2060 PRINT USING D$;D;:PRINT">, SORRY." 
2070 PRINT: PRINT"TERMINATION OF RUN..." 
2080 END 

2100 REM TRUST FUND RETURN 

2110 IF TF<¢)0 THEN 2130 

2120 GOTO 2000 

2130 DeD+TF:TF=0:RF=1:GOSUB 1920 

2140 PRINT 

2150 PRINT’ AN AMOUNT OF “;USING D&;D 

2160 PRINT"IS NOW YOUR TOTAL ASSETS," 

2170 PRINT"DRAWN FROM THE TRUST FUND." 
2180 GOSUB 1965 

2190 TACR) 2D: RF=#0:GOTO 715 

2200 REM NO MORE INVESTMENTS 

2210 PRINT 

2220 PRINT'NO MORE INVESTMENTS CAN HE" 
2230 PRINT'MADE NOW “;1$;" SORRY." 

2240 FOR W=1 TO 2000:NEXT 

2250 I=1:RETURN 

2300 REM ASSETS ENOUGH TO RETIRE 

2310 IF D>=9E+07 THEN 2330 

2320 RETURN 

2330 PRINT: IF T$="" THEN 2410 

2340 PRINT" YOUR TOTAL ASSETS ARE NOW ENOUGH" 
2350 PRINT" FOR YOU TO RETIRE "“;1$;"." 

2360 PRINT" YOU HAVE A GRAND TOTAL OF "; 
2370 PRINT USING TS$;D 

2380 PRINT 

2390 PRINT"THIS PROGRAM MUST BE TERMINATED." 
2400 PRINT: GOTO 2070 

2410 TS a"SSHHE4 GEE, GEE. HE" 

2420 GOTO 2340 


Variables and Strings 


TA(N) - Total assets 

LL(N) - Loans approved 

AI(N) - Amount invested 

AR(N) - Amount returned from the loan or investment 
AL(N) - Amount lost 
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LA(N) - Loan amount not including interest 

D - Dollar amount for TACN) 

D$ & T§ - For printing amounts 

I$ - User's initials 

R & M - For total amount of assets, loans, and returns 

These variables go no higher than 13 

W - For Print @ areas 

VV - For total investments up to 100 (AI(N) 

TH - For print of amounts only 

GK & IJ - For return of GOSUB, after amounts have been adjusted 

M - For a total of R, print of amounts up to M 

IV - Random investment amount 

X - For Print @ locations of amounts 

ZZ - For messages 

LA - Loan amount before interest is tacked on 

L - Total loan amount 

PE - Interest rates 

PB - Payback in months 

LK - Random number selector for return or loss of loan or invest- 
ment 

TF - Trust fund 


Explanation of the Program Lines 


Lines 60-270 display the instructions, if needed, and asks for 
the user’s initials. 

Line 300 initializes 3 variables. 

Lines 300-700 prints the current chart, which shows the user’s 
total assets, loans, returns, etc. 

Line 710 branches to line 1150 for a loan return if D (amount in 
assets) is less than or equal to $6.00. 

Line 720 branches to line 1680 for all loan returns if video has 
been filled (R=13). At this point, some borrowers could default on 
their loans. 

Line 725 branches to the appropriate print messages for loans 
returned (ZZ=1) or loans lost (ZZ= 2). 

Lines 730-1010 selects and prints a loan amount to be approved 
or disapproved IfI=1. If I= 2, an investment opportunity is offered 
(line 1430). 

Lines 1040-1110, deduct the amount of the loan from the user’s 
total assets and chart the returns. 

Lines 1120-1210 control the repayment of a loan if LK is equal 
to 1 or 4. If it is not (LK= 2 or LK= 3), the loan will be declared 
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default. Only the principal of the loan will be lost at this point (lines 
1335-1420). 

Lines 1280-1310 select a random percent for the finance 
charges. 

Lines 1430-1580 select an investment amount (random) if 
counter VV (total investments) is less than or equal to 100. This 
investment amount (if approved) will be deducted from the user’s 
total assets, and HJ will then be equal to 1. Each time a loan is made 
(and HJ=1), all investments from 1 to M (total loans) will either 
bring a return or a loss, depending on a random integer, LK in lines 
1800-1900. 

Lines 1910-1990 place an amount ina trust fund for future use if 
D (total assets) is greater than or equal to 25E+ 03. 

Lines 2000-2080 terminate the program if all loans have been 
returned, the trust fund is all used, and D< = 5 ($5.00). 

Lines 2100-2190 withdraw an amount from the trust fund and 
adds it to the total assets when needed. 

Lines 2200-2250 display a message that no more investments 
can be made (VV>=101). 

Lines 2300-2420 terminate the program if D is greater than or 
equal to 9E+07. 
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BE PREPARED (PART |) 


Where is part II you say? Some things must be left for the future, 
and besides, if you’re reading this, you haven’t made it through part I 
yet! At any rate, you are located somewhere in outer space. There 
are four tubes you must propel your vessels into. Your vessels will 
move continuously. You will use numeral keys to propel them into 
these tubes. The first numeral keys that will correctly propel the 
vessel will be 1 and 2. Each time the vessel makes a cycle (left to 
right and back to the left) the computer will increase the highest 
numeral you must press by 1 (i.e., 1-2,1-3,1—4, etc., up to 1-9). 
This means that you will have to guess which numeral will propel 
the vessel into the tube. Only the right one will do the trick. Refer to 
pages 1-3 for information on the sound routine. Note that the IBM 
version of this program is included in Appendix A, and the Apple 
version in Appendix B. 


Sample Run 


BE PREPARED (PART 1) 

IF YOU HAVEN’T DONE SO, READ AND 
FOLLOW ALL INSTRUCTIONS FOR PLAY. 
YOU MUST UNDERSTAND EVERYTHING. 
INSTRUCTIONS? YES 


THIS GAME TAKES 
PLACE IN A DISTANT OUTER SPACE 
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START 


Y 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


SET GRAPHICS 
FOR PORTS 


MOVEMENT OF 
VESSEL 


MOVE VESSEL 
RIGHT 


Y 


MOVE VESSEL 
LEFT 


DOCKED 
Y 
N 
DESTROYED 


Y 


MESSAGE OUT 
OF FUEL/ 
DESTROYED 


a. oo 


| FINAL | ( ) 
N KD ¥ MESSAGE STOR 


Flowchart for Be Prepared (Part 1). 
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FUEL REMAINING: 21 TONS 


LOCATION. WHAT YOU WILL SEE IS 

FOUR TUBES; THE TOPS ARE CLOSED 
WHILE THE BOTTOMS OPEN FOR ENTRY. 
WILL BE LOCATED AT 

THE BOTTOM OF THE TUBES, IN THE 
FORM OF AN ASTERISK. IT WILL BE MOVED 
CONTINUOUSLY FROM 

LEFT TO RIGHT. NUMERAL KEYS 

1-2 WILL PROPEL YOUR CRAFT 

INSIDE A TUBE, BUT YOU MUST 


PRESS ENTER? 


DECIDE WHICH KEY WILL DO THE 
JOB. ONLY ONE NUMERAL WILL 
WORK, AND THE COMPUTER WILL 
INCREASE THE MAXIMUM VALUE WITH EACH 
CYCLE. 1.E., 1-3, 1-4, ETC. YOU HAVE 
20 VESSELS TO DOCK, ONE OTHER 
THING THAT CAN STOP YOU IS THE 
AMOUNT OF FUEL REMAINING (PER 
VESSEL. ONLY IF YOU UNDERSTAND 
ALL INSTRUCTIONS, PRESS ENTER TO 
DOCK THE FIRST VESSEL? 


Program Listing 


10 REM PROGRAM TITLE: BE PREPARED (PART I) 
20 CLS: RANDOM 

30 PRINT"BE PREPARED (PART 1) 

40 PRINT 

50 PRINT"IF YOU HAVEN'T DONE SO, READ AND" 
60 PRINT"FOLLOW ALL INSTRUCTIONS FOR PLAY.” 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
920 
430 
440 
450 
460 
470 
480 
490 
900 
910 
920 
$30 


PRINT" YOU MUST UNDERSTAND EVERYTHING." 
PRINT 

INPUT" INSTRUCTIONS" ;G§ 

IF MID$(Q$,2,1)4>"E" THEN 400 

PRINT 

PRINT'THIS GAME TAKES" 

PRINT" PLACE IN A DISTANT OUTER SPACE" 
PRINT" LOCATION. WHAT YOU WILL SEE IS" 
PRINT" FOUR TUBES; THE TOPS ARE CLOSED" 
PRINT"WHILE THE BOTTOMS WILL BE OPENED" 
PRINT" FOR ENTRY." 

PRINT" YOUR VESSEL WILL BE LOCATED AT" 
PRINT'THE BOTTOM OF THE TUBES, IN THE" 
PRINT" FORM OF AN ASTERISK. IT WILL MOVE" 
PRINT“ CONTINIOUSLY FROM" 

PRINT" LEFT TO RIGHT. NUMERAL KEYS" 
PRINT'1-2 WILL PROPEL YOUR CRAFT" 
PRINT" INSIDE A TUBE, BUT YOU MUST" 
PRINT 

INPUT" KEY ENTER"; X 

CLs 

PRINT" DECIDE WHICH KEY WILL DO THE" 
PRINT" JOB. ONLY ONE NUMERAL WILL" 
PRINT'WORK, AND THE COMPUTER WILL" 
PRINT" INCREASE THE MAXIMUM VALUE 

WITH EACH" 

PRINT"CYCLE. I.E.,1-3, 1-4, ETC. YOU HAVE" 
PRINT"20 VESSELS TO DOCK. ONE OTHER" 
PRINT" THING THAT CAN STOP YOU IS THE" 
PRINT" AMOUNT OF FUEL REMAINING (PER" 
PRINT"VESSEL). ONLY IF YOU UNDERSTAND" 
PRINT"ALL INSTRUCTIONS, PRESS ENTER" 
PRINT'TO DOCK THE FIRST VESSEL"; 

INPUT X 

CLS 

REM VESSELS / BEGIN VALUE 
V=20:DS=0:DK=0: VL=2 

REM TUBES 

X=8:VY=26 

FOR T=Y TO O STEP-1i 
SET(X,T):SET(X+5,T) : NEXT 

FOR T=X TO X45 

SET(T,0):NEXT 

REM DO FOUR 

X=X+31 

IF X=¥*5+2 THEN 530 

GOTO 450 

REM BOTTOM OF PORTS 
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540 
350 
360 
370 
380 
390 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
706 
710 
720 
730 
740 
750 
760 
770 
780 
790 
600 
810 
820 
830 
840 
850 
860 
870 
880 
685 
890 
900 
910 
920 
930 
940 
950 
960 
970 
990 


1000 
1010 
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W=0:X=8 

FOR TeW TO XK 

SET(T,Y) :NEXT:IF Psi THEN 600 
W=X+6:X=kK+31 

IF W=107 THEN X=127:P=1 
GOTO 350 

REM FUEL 

F=200 

F$="FPUEL REMAINING:" 

X=980 

FOR [I=1 TO LENC(F$) 

PRINT@X ,MID$C(FS,1,1); 
X=X+1:GOSUB 1500 

NEXT:IF G=1 RETURN 

Q=X+l 

PRINT@Q,F; 

REM START LOCAL 
L=640:V$=x""%".Z2X¥=2255:PKe1 
M=L+63:P=RND(VL) : R=0 
PRINT@L,V$§; 

REM BY INKEYS 

X¥$8=INKEYS$ 

IF VALCK$)=P THEN 900 

FOR T=1 TO §5:NEXT 

PRINT@L," "; 

IF R=1l THEN 810 

LeLb+1:GOTO 840 

L=L-1 

IF L<=M THEN 720 

GOTO 8350 

IF L>=M THEN M=L-63:R=1:VL=VL+1 
FeF-1:1F VL>=9 THEN VL=9? 

IF F<=0 THEN 1200 
PRINT@Q,F;:PRINT@Q+5, "TONS"; 
IF INTCF/10)=F/10 THEN 1540 
IF F¢=10 THEN 1540 

GOTO 730 

REM PORT? 

J=21:ZX=50:PK=0 

PRINT@L," "; 

L=L-64 

PRINT@L,V$; 

J=J+1:GOTO 1540 

IF PEEK(L+15360-64)<>32 THEN 990 
GOTO 920 

IF J¢<=2+2 THEN 1030 


FS=" VESSEL DOCKED SAFELY " 
G=1:GOSUB 630 


1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1230 


1300 
1310 
1320 
1330 
1340 
1330 
1355 
1360 
1370 
1380 
1385 
1390 
1400 
1410 
1420 
1500 
1510 
1520 
1330 
1340 
1550 
1360 
1570 
1380 
1390 
1600 
1610 
1620 


DK=DK+1:GOTO 1070 

Fs="V E§ S E L DES TROY E D" 
FOR T=1 TO S00:NEXT:PRINT@L," "; 
G=1l:X=975:GOSUB 640 

DS=DS+1 

GOSUB 1600 

FS=STRING$(32,32):X=975 

GOSUB 640 

V=V-1:G=0 

IF Vi=0 THEN 13007 

VL=VL+1 

IF VL>=s9 THEN VL=? 

GOTO 600 

REM FUEL EXHAUSTED 

Fe="F U E L EX H AU STE D" 
Gol: X=2975 

GOSUB 640 

FOR T=1 TO $00:NEXT 

GOTO 1030 

REM ALL VESSELS IN 

G=1:XX=0 

Fs="A LL VESSELS IN" 
X¥=975:GOSUB 640:GOSUB 1600:X=XxX:CLS 
FS="YOU HAVE DOCKED" 

GOSUB 640:PRINT DK; :F$="VESSELS" 
X=X+4 

GOSUB 640 :X=XX+64:XX=kKX+64 

F$="YOU HAVE DESTROYED" 

GOSUB 64940: PRINT DS;:F$="VESSELS" 
KX=X+3 

GOSUB 640: X=XX+64:XX=XK+64 


FS="END OF MISSION..." 
GOSUB 640 

END 

REM SOUND ROUTINE 


POKE 31266,ASC(MIDS(FS,1,1))410 
Z=USR(0> 

RETURN 

REM MORE SOUND 

POKE 31266,Z2X%:Z=USR(0) 
IF PK=1 THEN 1580 

GOTO 9760 

IF F¢<=100 THEN ZX=ZK-10 
GOTO 890 

REM FOR MESSAGE LOOP 
FOR T=1 TO 1200:NEXT 
RETURN 
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Variables and Strings 


V - Number of vessels 

DS - Vessels destroyed (counter) 

DK - Vessels docked (counter) 

VL - The beginning value for a random number between 1 and 2. 
This value will increase up to 9 in increments of 1 for each cycle 
(cycle: left to right then back to left) and each time a craft is 
safely docked X,Y, and W — For graphics of tubes (docks) 

F - Fuel amount 

F$ - Contents of different messages, depending on area of flow 

X - Used again for Print @ locations of messages 

Q - Print @ area of F (fuel) 

G - Simple 0/1 true/false variable for messages 

L - Start location of vessel 

V§& - Vessel (asterisk) 

ZX - Used in conjunction with sound output 

PK - For GOTO line definition 

M - Limit of L for asterisk movement 

P - Random selection of VL 

K - For left (R = 0) or right (R=1) movement of vessel 

J - To note if vessel has docked safely >= 3) 

Z - For USR call of sound routine 


Explanation of the Program Lines 

Lines 10-400 display the general playing instructions. 

Line 420 initializes several of the variables. 

Lines 430-590 display the graphics for the tubes (ports) in 
which each vessel must dock. 

Lines 600-620 set the amount of fuel and one of the messages 
for F$. 

Lines 630-690 print the different messages in F$. If G is equal 
to 1, lines 630 or 640 through lines 630-670 are being used as from 
another part of the program. 

Lines 700-890 form the main part of the program. Movement of 
the asterisks will continue left to right and then right to left until the 
VAL of X$ is equal to P, or all of the fuel is exhausted. 

Lines 900-970 move the vessel upward until the condition at 
960 is met. 

Line 990 tests the value of J. If it is less than or equal to 2 the 
vessel is considered destroyed. 

Lines 1000-1250 print the appropriate message indicating the 
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status of the vessel, advance the counters, and continue the program 
if V>=1. 

Lines 1300-1420 display messages indicating the number of 
vessels docked and/or destroyed and then terminate the program. 

Lines 1500-1590 is the routine for the sound output used when 
the status messages are displayed. 

Lines 1600-1620 form a time loop (pause) between appropriate 
messages. 
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MOVE RIGHT -NO- MOVE LEFT 


RAIN OF TERROR 

From the sky bombs will fall on your exact location. You will 
use the left and right arrow keys to move out of the path of destruc- 
tion, but you will have to be fast! Keep an eye on the POINTS 
BEFORE HIT message to obtain the highest score before termina- 
tion. Your score depends on when you move out of the path of the 
bomb. The longer you wait, the higher your score. Remember to 
use the proper value for SL in line 30. Refer to page 3. Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


##RAIN OF TERROR#*« 
INSTRUCTIONS (Y/N)? YES 


YOU WILL BE BOMBARDED FROM THE 
SKY, BY FALLING BOMBS. ALL YOU 
NEED DO TO STAY ALIVE IS TO 

USE THE LEFT ARROW AND THE 
RIGHT ARROW KEYS TO GET 

OUT OF THE WAY. 

IT SOUNDS VERY 

SIMPLE, BUT YOU MUST BE FAST! 


PRESS A KEY TO BEGIN 
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INSTRUCTIONS 


MOVEMENT OF 
BOMB + SIGN 


MOVE MARK , 
AS PER KEY | 


ESTROYED 


CLOSING 
MESSAGE 


Flowchart for Rain of Terror. 
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Program Listing 


10 REM PROGRAM TITLE: RAIN OF TERROR 

20 CLEAR 200: RANDOM 

30 CLS: PRINT: SL=31266 

40 PRINT"*** RAIN OF TERROR *®*8" 

50 PRINT: X$=STRINGS (63,32) 

60 INPUT" INSTRUCTIONS (Y¥/N)";A5& 

70 IF A$S="N" THEN 190 

80 PRINT"YOU WILL BE BOMBARDED FROM THE" 
90 PRINT'SKY, BY FALLING BOMBS. ALL YOU" 
100 PRINT'NEED DO TO STAY ALIVE IS TO" 

110 PRINT"USE THE LEFT ARROW AND THE" 
120 PRINT"RIGHT ARROW KEYS, TO GET" 

130 PRINT“OUT FROM UNDER THE FALLING BOMBS." 
140 PRINT"IT ALL SOUNDS VERY" 

150 PRINT"SIMPLE, BUT YOU MUST BE FAST !!" 


160 PRINT 

170 PRINT’ PRESS A KEY TO BEGIN" 
180 A$sINKEY$:IF A$="" THEN 180 
190 CLS 


200 REM BORDER / MESSAGES 

210 PRINT@O,STRINGS (63,191); 

220 I$=CHR$(143):GOSUB 5i0 

230 R=0:REM POINTS 

240 P=64°PP=P+62:U=P+896 > UV=U: UW=U+61 > RR=0 


250 PRINT@P,‘+";:PRINT@U,"  ";:P=P+2 
260 U=U+2:PRINT@P-2," ";:PRINT@U,15; 
270 IF P)=PP THEN PRINT@U," ";:GOTO 240 


280 POKE SL,40:D=USR(0):PX=RND(127) 
290 IF PX¢=63 THEN 280 

300 IF ABS(P-PX)<=8 THEN 320 

310 GOTO 250 

320 REM A DROP 

330 PL=P 

3940 PRINT@P,"*";:P=P+64 

350 PRINT@P-64," "5 

360 IF P)PL+896 THEN 410 

3970 K=PEEK(14440):IF K=32 THEN 420 
360 IF K=6é4 THEN 470 

390 R=R+25:RR=RR+25 : PRINT @18,RR;:PRINT@S5,R; 
400 IF P=U THEN 550 ELSE GOTO 340 
410 PRINT @960,X%$;:P=PL:RR=0: GOTO 
420 PRINT@U," "; 

430 U=U-2 

440 IF U<=UV THEN 480 

450 PRINT@U,1S; 

460 U=PL+896:GOTO 340 
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470 
480 
490 
500 
510 
920 
530 
540 
$50 
560 
370 
580 
3970 
600 
605 
610 
615 
620 
625 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
800 


PRINT@U," "; 

U=sU+2 

IF U>=UW THEN U=UV 
GOTO 450 


REM MESSAGES 

PRINT@O," POINTS BEFORE HIT"; 
PRINT@40, "TOTAL POINTS"; 

RETURN 

REM BOMBED 

R=R-RR: PRINT@S5 ,R;: PRINT@960,X$; 
IF U<=962 THEN U=U+3 

IF Ud=1020 THEN U=U-4 
Ul=U-64:U2Z=sU1-1:U3=2U1+1:U4=1 
PRINT@U, "2%"; 

POKE SL,200:D=USR(0) 

PRINT @U1,"*"; :PRINT@UZ,"%*"; 

POKE SL,230:D=USR(0} 

PRINT@U3,"%"; 

POKE SL,240:D=USR(0) 

FOR T=1 TO 200:NEXT:U4=U4+41 
PRINT@U," “; : PRINT@U2,STRING$(10,32); 
IF ABS(U-U1L)>=256 THEN 670 
U1l=U1~64:U2=U1-U4:U3=U1+U4:GOTO 600 
REM GONE 

FOR T=1 TO 1000:NEXT 

CLS 

PRINT"YOU HAVE BEEN DESTROYED BY ONE" 
PRINT"OF THE FALLING BOMBS. YOUR" 
PRINT"'TOTAL POINTS ACCRUED BEFORE" 
PRINT" YOU WERE DESTROYED WERE:";R 
PRINT: FOR T=i1 TO 1000:NEXT 
AS$="END OF RAIN OF TERROR." 

FOR I=1 TO LEN‘(A$) 

PRINT MID$(A$,1,1);:POKE SL,30 
D=USR(0) 

NEXT 

END 


Variables and Strings 


SL - Sound location (machine language routine) 

X$ - For clearing area on video 

I$ - User’s mark 

R - Points 

P, PP, U, UV, UW - All used in conjunction with one another for bomb 
location before drop and user’s location 

D - USR call for output of sound 
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PX - Used for a bomb drop, if less than or equal to 8 
PL - Length of the drop 

K — User’s movement (peek) 

RR - Points before actually hit by bomb 

U1, U2, U3, U4 - For explosion of user’s mark when hit 
T - Time loop (pause) 


Explanation of the Program Lines 

Lines 10-190 initialize the sound location variable and display 
the general instructions. 

Lines 200-310 initialize more variables and keep the bomb and 
location of the drop moving before a drop. 

Lines 320-540 drop a bomb on the user’s location, determine 
the user’s location (if any), increase the score until the hit occurs, 
and determine the total score. If P= U (line 400), the user is 
destroyed. 

Lines 550-660 display the explosion of the user’s mark when it 
is hit by a bomb. 

Lines 670-800 display the user’s total number of points ob- 
tained before the mark was destroyed. 
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| ILILI ES 


YOU MISSED 


KNIGHTS 


You've been hired by the king to destroy some knights that have 
escaped from the dungeon and gone into a castle. You are a 
sharpshooter, but it won’t be that easy. The knights have captured 
some hostages, so think before you fire into that open window; you 
could shoot a hostage. If you destroy all of the hostages, the king 
will have your head! Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 


>>>>KNIGHTS<<<< 
INSTRUCTIONS NEEDED? YES 


THERE ARE 10 KNIGHTS IN A CASTLE. 
THERE ARE KNIGHTS THAT HAVE DONE 
WRONG AND WERE IN A DUNGEON 
WAITING TO HAVE THEIR HEADS 
REMOVED. THEY HAVE BROKEN OUT OF 
THE DUNGEON AND GONE INTO A 
CASTLE. ALONG WITH THEM ARE 

8 HOSTAGES. THE KING 

WILL NOT MEET TO THE CONDITIONS 
THEY HAVE SET, SO THEY'RE 

GOING TO STAY UNTIL THE END... 
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CONTINUE LOOP 


Flowchart for Knights . 
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4 


i 


START 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


fe i 


MAKE A 
CASTLE 


] 
m 
4 


RANDOM WINDOW 


PLACE FIGURE 
IN WINDOW 


OUTPUT MESSAGE 


THAT APPLIES 


TEST ALL 
ARGUMENTS 


<p 


OUTPUT CLOSING 
MESSAGE 


STOP 


~< 


Ll LL ICI 


YOU HAVE 9 ARROWS TO FIRE. 


PRESS ENTER TO RESUME? 


YOU ARE THE SHARPSHOOTER SELECTED 
BY THE KING TO TERMINATE EACH 

OF THESE KNIGHTS. YOU ARE 
EQUIPPED WITH A HIGH-POWER CROSS- 
BOW. ALONG THE CASTLE WALLS ARE 
FIVE WINDOWS. EACH TIME A FIGURE 
APPEARS AT A WINDOW YOU'LL HAVE 
THE OPTION OF WHETHER OR 

NOT TO FIRE (BY HITTING 

THE SPACE BAR). THE 

FIGURE THAT APPEARS AT A WINDOW 
COULD BE ONE OF THE HOSTAGES. 

IF IT 1S A KNIGHT AND YOU DON’T 

FIRE, YOU COULD BE HIT... 


PRESS ENTER TO BEGIN? 


Program Listing 


REM PROGRAM TITLE: KNIGHTS 
CLEAR 700 

CLS: RANDOM 

PRINT")>)) KNIGHTS (¢¢¢" 
PRINT 

PRINT“ INSTRUCTIONS NEEDED"; 
INPUT T$ 

IF T$s"N" OR TS="NOQ" THEN 370 


tt ment 3h rr en ete 
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90 PRINT"THERE ARE 10 KNIGHTS IN A CASTLE" 
100 PRINT"THESE ARE KNIGHTS THAT HAVE DONE” 
110 PRINT"WRONG AND WERE IN A DUNGEON” 

120 PRINT"WAITING TO HAVE THEIR HEADS” 

130 PRINT"REMOVED. THEY HAVE BROKEN OUT OF" 
140 PRINT"THE DUNGEON AND GONE INTO A" 

150 PRINT"CASTLE TAKING EIGHT HOSTAGES" 

160 PRINT"WITH THEM. THE KING WILL" 

170 PRINT"NOT AGREE TO THE CONDITIONS" 

180 PRINT"THEY HAVE SET DOWN, SO THEY'RE" 
190 PRINT"GOING TO STAY 'TIL THE END..." 
200 PRINT: INPUT"PRESS ENTER TO RESUME" ,TS5 
210 PRINT@O,CHR$(30) 

220 PRINT"YOU ARE THE SHARPSHOOTER SELECTED” 
230 PRINT"BY THE KING TO TERMINATE EACH" 
240 PRINT"OF THESE KNIGHTS. YOU ARE" 

250 PRINT'EQUIPPED WITH A HIGH-POWER CROSS-" 
260 PRINT"BOW. ALONG THE CASTLE WALLS ARE" 
270 PRINT" FIVE WINDOWS. EACH TIME A FIGURE" 
280 PRINT’APPEARS AT A WINDOW YOU'LL HAVE" 
290 PRINT"THE OPTION OF WHETHER OR NOT TO FIRE" 
300 PRINT" (BY HITTING THE SPACE BAR). THE" 
310 PRINT"FIGURE THAT APPEARS AT A WINDOW" 
320 PRINT"COULD BE ONE OF THE HOSTAGES. " 
330 PRINT'IF IT IS A KNIGHT AND YOU DON'T" 
340 PRINT"FIRE, YOU COULD BE HIT..." 

350 PRINT 

360 INPUT"PRESS ENTER TO BEGIN" ;T$ 

370 CLS:K=10:HD=8:CR=10 

390 REM MAKE A CASTLE 

390 C$=STRINGS(62,191) 

400 A=320 

410 PRINT@A,C$; 

420 IF A)=768 THEN 440 

430 A=A+64:GOTO 410 

440 REM TOP OF CASTLE 

450 A=256:C$=CHR$(183)+CHR$ (187) 

460 PRINT@A,C$; 

470 A=zA+4 

480 IF A)=320 THEN 500 

490 GOTO 460 

500 REM NOW FIVE WINDOWS 

510 C$=STRING$(5,32):J=1 

520 AsA+72:XX=19 

530 PRINT@A,C$;:PRINT@A+64,C3$; 

540 A(J)=sAe6S:UaJel 

550 IF A)=432 THEN 570 

560 A=A+10:GOTO 530 
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570 
5380 
590 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
762 
765 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


REM FIGURE 
FS=CHR$(182)+CHR$(143)+CHRS$(185) 
REM GET A WINDOW 

W=RND(5) 

WI=eA(W) 

REM PAUSE BEFORE PLACING 
PA=RND(700):1F PA(=250 THEN 630 
FOR PU=1 TO 700 

IF PU=PA THEN 670 

NEXT:GOTO 630 

PRINT@WI,F$; 

REM SHARPSHOOTER TO FIRE 

FOR Tl=i TO 100 

WSeINKEY$ 

IF WS()"* THEN 730 

NEXT 

REM KNIGHT OR HOSTAGE 

H1=RND(3) :H2=RND(5) :H3=RND(5) 
H=ABS(H1-H2-H3) 

PRINT@WI ,STRING$(3,32); 

IF HeW THEN 1240 

IF HD(=0 THEN 840 

IF H(=0 OR H)}=5 AND TI<=99 THEN 790 
GOTO 840 

REM A HOSTAGE 

PRINT@O,;:1F Tl)=75 THEN 880 
PRINT" YOU HAVE JUST KILLED ONE" 
PRINT"OF THE HOSTAGES, TURKEY !!" 
GOTO 970 

PRINT@O,;:I1F TI)=100 THEN 680 
PRINT"GOOD SHOOTING, YOU HAVE" 
PRINT"KILLED ANOTHER KNIGHT." 

GOTO 940 

PRINT@O,;:1F H)=0 AND H{=2 THEN 1020 
PRINT“ THINK FASTER !! YOU HAVE BEEN” 
PRINT"HIT BY ONE OF THE KNIGHTS !!" 
HK=HK+1 

IF HK>=6 THEN 1060 

GOTO 990 

K=K-1:°PRINT K; "KNIGHTS REMAIN. “ 

IF K(=0 THEN 1120 

GOTO 990 

HD=HD-1 

IF HD<(=0 THEN 1180 

FOR TX=1 TO 1500:NEXT 

REM CLEAR PRINT AREA 
PRINT@O,STRING$(255,32);:GOTO 1400 
IF HD<=0 THEN 890 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12495 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1350 
1360 
1370 
1380 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
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PRINT"GOOD THING YOU DID NOT FIRE" 
PRINT“THAT WAS A HOSTAGE !!" 

GOTO 990 

REM HIT ENOUGH 

PRINT@O,; 

PRINT"YOU HAVE BEEN HIT"; HK; "TIMES 
PRINT"YOUR BODY CANNOT STAND" 
PRINT“ANYMORE. YOU ARE DYING..... " 
GOTO 1530 

REM KNIGHTS OMITTED 

PRINT@O,; 

PRINT"YOU HAVE KILLED ALE 10" 
PRINT"KNIGHTS THE KING WILL BE" 
PRINT"PROUD OF YOU MY FRIEND..... 
GOTO 1530 

REM HOSTAGES GONE 

PRINT@O, ; 

PRINT"YOU HAVE KILLED ALL OF THE" 
PRINT" HOSTAGES... YOU TURKEY !1" 
PRINT"THE KING WILL HAVE YOUR HEAD 
GOTO 990 

REM COMPLETE MISS 

IF Ti)=100 THEN 765 

XX=RND(122) 

IF XX¥(=2 THEN 1260 

YY=RND(35) 

IF YY¥¢=17 THEN 1270 

RESET(KX,YY) 

PRINT@O,; 

PRINT"YOU'LL HAVE TO DO BETTER" 
PRINT"THAN THAT, YOU'VE MISSED !1" 
GOTO 990 

REM CROSSBOW ROUNDS 

PRINT@910, ; 


PRINT"YOU HAVE"; CR;"ARROWS TO FIRE.” 


RETURN 

REM ENOUGH ARROWS LEFT 

IF T1¢(=99 THEN CR=CR-1 

GOSUB 1350:I1F CR<=0 THEN 1440 
GOTO 590 

REM END 

FOR TX=1 TO 2000:NEXT 

CLS 

PRINT" YOU HAVE EXHAUSTED YOUR" 
PRINT"SUPPLY OF CROSSBOW ARROWS." 
IF K{)0 THEN 1510 

GOTO 1530 

PRINT"THERE ARE STILL"; K; "KNIGHTS" 


1520 PRINT" IN THE CASTLE....." 

1530 PRINT 

1540 IF HD(=0 THEN 1560 

1550 GOTO 1600 

1560 PRINT’ YOU ARE A BLUNDERING SHARP-" 
1570 PRINT"SHOOTER, YOU IDIOT !!" 
1580 PRINT"YOU HAVE HIT AND KILLED " 
1590 PRINT"THE 8 HOSTAGES !!!" 

1600 PRINT 

1610 PRINT" END OF RUN." 

1620 END 


Variables and Strings 


K - Number of knights 

HD - Total number of hostages 

CR - Total arrows 

C$ - CHR$ for castle and windows 

A - Print @ location for structure of castle 

AQ) - Locations of windows (5) 

W - Random window selection 

WI - Window select, ACW) 

PA - Pause before placing figure in selected window 

W$ - INKEY$ to fire at figure 

H1,H2, H3,H - Used to determine if the figure was a hostage 
TI - Time loop for the length of time figure will appear in window 
HK - Counter user hit by knight 

XX, XY - Used to reset an area of the castle for a user miss 


Explanation of the Program Lines 

Lines 10-360 display the general operating instructions. 

Line 370 initializes 3 variables. 

Lines 380-560 display a castle and set the 5 window locations 
to the subscripted variable A(J). 

Lines 570-580 establish the figure that will appear in a window. 

Lines 590-610 select (randomly) which one of the five windows 
the figure will appear in. 

Lines 620-660 establish a random-length pause determined by 
the variable PA, before the figure is printed. 

Lines 680-720 use the INKEY$ function for the user to fire 
upon the figure. 

Lines 730-750 use variables to determine whether figure was a 
hostage or a knight. 

Line 760 clears the figure from the window. 
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Line 762 determines whether or not the shot missed com- 
pletely. 

Line 765 sends program control to line 840 where a knight 
eliminated if Tl< = 99, 

Line 770 determines whether or not a hostage hit, if Tl< = 99, 

Line 780 is the same as line 762 and is used if previous 
conditions were not met. 

Lines 790-830 display the hostage killed message. 

Lines 840-870 display the knight killed message. 

Lines 880-930 indicate that the user has been hit by a kni ght. If 
the user receives at least 6 hits, he or she will be declared dead (line 
920). 

Lines 940-960 display a message indicating how many knights 
remain. If K< = 0 all knights have been eliminated. 

Line 950 sends program control to line 1120 if all the knights 
are dead. 

Lines 970-980 are accessed when a hostage is killed. If all 
hostages are killed, the king will have the user’s head (line 980). 

Lines 990-1010 forma delay loop and clear the print messages. 

Lines 1020-1050 print a message indicating that a hostage was 
in window. 

Lines 1060-1110 display the message that the user is dying. 

Lines 1120-1170 display the message that all the knights have 
been killed. 

Lines 1180-1230 display the message that all the hostages have 
been killed, but the program continues so that the user can finish off 
the knights. 

Lines 1240-1330 are used when the user misses completely. 
Message is displayed, and an area of the castle is reset to show what 
area was hit. 

Lines 1350-1380 display a message that indicates how many 
arrows remain. 

Lines 1400-1430 test the number of arrows remaining. If there 
aren't any, the program is terminated. 

Lines 1440-1620 terminate the program and display the ap- 
propriate messages. 
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Games to Keep You 
Alert or Put You to Sleep 


Triangle is a game of chance that tests your luck in avoiding landing 
on the spot chosen by the computer. 

Mind Invasion forces you to move quickly to avoid being 
crushed. 

Trapped challenges you to trap the computer’s piece. Watch 
out—it can burn you. 

Elevator tests your memory. Can you get all the customers to 
the floors they want to go to? 

Farewell offers a merciful death. All you must do is land on 
the spot where the cobra is hiding. To win you must land on the spot 
indicated by a quick flash. 

Insomnia will put you to sleep. Al! you have to dois watch the 
screen. 

Rainy Daze puts your attention span on trial. How long can 
you concentrate on the numbers on the screen? 
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YOU'RE OUT OF THE GAME 


TRIANGLE 


Moving around in a triangle. You and two other people will try tc 
avoid landing on the spot selected by the computer. There is a way 
to come out the victor almost every time. That is all I will tell you; 
you'll have to figure out how yourself. Don’t get your arms tangled 
with the other two players during the trips around the triangle! 
Refer to pages 1-3 for information on the sound routine. 


Sample Run 


... TRIANGLE... 


OUTLINE FOR PLAY?YES 

THIS PROGRAM REQUIRES 3 PLAYERS. 
THE COMPUTER WILL SELECT A LOCATION 
AT THE START OF THE PLAY. EACH 
PLAYER IN TURN WILL ENTER 

A NUMBER FROM 1 TO 9. THE MOVE 
AROUND THE TRIANGLE WILL 

BEGIN. IF AT ANYTIME A PLAYER 
LANDS ON THE SPOT THE COMPUTER 
HAS CHOSEN, THAT PLAYER WILL BE 
ELIMINATED FROM THE GAME. 


PRESS A KEV... 
THIS WILL CONTINUE UNTIL THERE 
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START 


¥. 


PRINT 
INSTRUCTIONS 


FIRST NAMES 
3 PLAYERS 


COMPUTER 
SELECTS FIRST 
PLAYER 


GRAPHICS 


INPUT 
PLAYER AMOUNT 


MOVE CHARACTER 
PER AMOUNT 


DELETE 
PLAYER 


Flowchart for Triangle. 


206 


TRIANGLE 


IS ONLY ONE PLAYER LEFT, THE 
WINNER. THINK BEFORE YOU ENTER A 
NUMBER AND KEEP YOUR EYE 

ON THE OPPONENT. 

3 FIRST NAMES, PLEASE. 


Program Listing 


10 
20 


30 
40 
a4 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


REM PROGRAM TITLE: TRIANGLE 
REM REQUIRES THREE PLAYERS 


CLS 

PRINT" ...TRIANGLE .." 

PRINT 

INPUT"OUTLINE FOR PLAY" ;X$ 

IF MIDS(X$,2,1)¢)"E" THEN 240 

PRINT"THIS PROGRAM REQUIRES 3 PLAYERS." 
PRINT“ EACH PLAYER WILL TRY TO EVADE" 
PRINT"THE OTHER, IN A NEVER ENDING” 
PRINT"TRIANGLE. MORE LIKE A CHASE," 
PRINT" THE SECOND PLAYER WILL MOVE" 
PRINT“AROUND THE TRIANGLE, SEARCHING" 
PRINT" FOR THE FIRST AND THIRD. THE THIRD" 
PRINT"PLAYER WILL SEARCH FOR THE SECOND" 
PRINT"OR FIRST. THEN THE FIRST WILL" 
PRINT"SEARCH FOR THE SECOND OR THIRD..." 
PRINT"!!! WH EW fitu 

GOSUBR 1000:CLS 

PRINT"THIS WILL CONTINUE UNTIL ONLY ONE" 
PRINT"PLAYER IS LEFT, THAT PLAYER WILL" 
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220 
230 
240 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
340 
390 
400 
9410 
420 
430 
440 
430 
460 
470 
480 
490 
300 
510 
920 
530 
940 
550 
960 
370 
980 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
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PRINT" BE THE WINNER. MOVE AMOUNTS WILL” 
PRINT" RANGE FROM 1 THROUGH 9. ENTER NOW" 
PRINT"THE THREE PLAYERS FIRST NAMES", 
FOR I=1TO3 

INPUT N$( I): NEXT: Y=2 

PRINT"FIRST PLAYER SELECTION..." 

FOR IT=1TOLO:L(I)=I:NEXT: FOR T=1TO1000 
NEXT:R=1:GOSUB 1400:A=RND(3) 

IF Az=1 THEN 360 

IF A=2 THEN 340 

N$(0)=N$(3).FOR T=ATO1 STEP-1 
N$(T)=N$(Y): Y=Y-1:NEXT:GOTO 350 
N§(0)=N$(2)°N8(02)=N8(3):N$(3)=N8 (1) 
N$(1)=N$(0) 

T=1: RANDOM 

PRINT“THE FIRST PLAYER IS: ";N8(I1) 
PRINT 

GOSUB 1000:CLS 

REM GRAPHICS WITH SOUND 

POKE 16526,0:POKE 16527,122 

W=89?7 

PRINT@W,CHR$ (143); 

POKE 31265,30:POKE 31266,100:X=USR(0) 
IF W)=958 THEN 470 

W=W+1:GOTO 430 

PRINT@923," TRIANGLE "; :M=2:N=124:Q=41 
SET(M,Q) -SET(M+1,Q):SET(N,Q) :SET(N+1,Q) 
POKE 31265,30:POKE 31266,N:X=USR(O) 
M=M+2:N=N-2:Q=Q-1 

IF ABS(M-Q@Q)=54 THEN 530 

GOTO 480 

NS=N$(1I):PRINT@O,N$;" YOUR LOCATION... 
F=0:IF P=t THEN 560 

J=863:REM MOVEMENT TO LEFT 
PRINT@J,CHR$(143); 

IF F(>3 THEN 590 

GOTO 630 

FeF+i 

POKE 31265,30:POKE 31266,200:X=USR(0) 
FOR T=1T0100-NEXT: PRINT@J,CHR$( 32); 
FOR T=1TO125:NEXT:GOTO 560 

REM ENTRY AMOUNT 

PRINT@O, ; :NN=220 

PRINT N$;" ENTER A NUMBER?"; 

GOSUB 1010:A=VAL(X$):K=0:GOSUB 999 

IF Kio}A THEN 690 

GOTO 940 

GOSUB 1100 


700 
710 
720 
730 
735 
740 
730 
760 
770 
780 
790 
900 
910 
920 
930 
940 
945 
930 
960 
970 
980 
990 
1000 
1010 
1020 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1335 
1340 
1345 
1350 


J=J-1:GOSUB 1130 
IF D=1 THEN GOSUB 920:GOTO 740 


IF J(=837 THEN GOSUB 700 


IF J=350 THEN GOSUB 1100:GOTO 780 
IF J=352 THEN GOSUB 1100:GOTO 780 


IF J=889 THEN D=0:NN=220 


K=K+1:GOTO 1200 
POKE 31265,30:POKE 31266,NN: X=USR(0) 
GOTO670 
JeJ+3:D=1 
GOTO 740 
GOSUB 1100 
J=(J-64)+4:>NN=NN-2:GOSUB 1130 :RETURN 
GOSUB 1100 
J=J+68:NN=NN+2:GOSUB 1130: RETURN 
REM PLAYER ADVANCE / DELETE 
PRINT@(0+LEN(N$ 3416) ," 
U(Q) ed: DC) =D: Tei+1:GOSUB 1100 
IF 1)=24 THEN [=1:P=1 
IF P=i THEN JeJ(1I):D=D¢(1) 
IF N$(1)="" THEN 950 ELSE GOTO 330 
PRINT@(0+LEN(N$)+16),A; :RETURN 


PRINT" PRESS A KEY 


we 
‘ 


X$=INKEY$:1F x$="" THEN 1010 
RETURN 
REM CLEAR CHARACTER BEFORE MOVEMENT 


PRINT@J,CHRS$(32); 


RETURN 
PRINT@J,CHRS$ (143), 
RETURN 


REM DROP A PLAYER 


IF 
IF 
IF 
IF 
IF 


IF Usd THEN 
IF Vez THEN 
IF Usl THEN 


I=1 THEN 1250 
I=2 THEN 1240 
JeJ(1-2) OR JaJ( 1-1) THEN 


JeJ(I@-1) 


OR Je 
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JCT+i) 


THEN 


JeJ(I+1) OR JaJ(I+2) THEN 
GOTO 760 
IF J¢oL OR KiOA THEN 1260 
REM PLAYER DELETED 


GOTO 1260 


IF 
IF 
IF 
IF 
IF 


JeJ(I-2) 
JeJ(I-1) 
JeJ(I-1) 
JeJ(1+1) 
JaJ( I+!) 


1330 
1340 
1350 


THEN 
THEN 
THEN 
THEN 
THEN 


NXsI-2: 
NXeI-1: 
NX=I-1: 
NxXsI41: 
NX=l+1: 


GOTO 
GOTO 
cOTO 
GOTO 
GOTO 


YsI:GOTO 1270 
UsI:GOTO 1270 
UsI:GOTO 1270 


1360 
1360 
1360 
1360 
1360 
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1395 
1360 
1370 
1380 
1396 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1320 
1530 
1540 
1350 
1560 
1570 
1580 
1390 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 


IF JeJ(I+2) THEN NX=1+2:GOTO 1360 
PRINT@64,, 


PRINT"PLAYER ELIMINATED. ..";N$(NX);" " 
NS (NX) ="": FT=30:FF=3:GOSUB 1580 
GOTO 1500 


REM LOCATION SELECT 

IF R>=2 THEN 1430 

FOR W=1TO1G:READ L(W): NEXT 

L=RND(10) 

IF L¢(L)=0 THEN 1430 

L=L(L): RETURN 

DATA 850,889,822,716,688 

DATA 621,594,472,420,411 

REM DELETE AND SELECT 

REM ANOTHER LOCATION 

L(R)=0:R=R+1 

IF R=3 THEN FF=10:FT=1:GOTO 1570 
GOSUB 1400 

J(NX)=0: FOR T=1T01000:NEXT 

GOTO 940 

GOSUB 1580:GOTO 1640:REM WINNER 
AziS0:FOR I[=1TO3:AC(I)=A 

A=A+50: NEXT: F=0 

FOR I=iTO3 

POKE 31265,30:POKE 31266,A(1)-FT:X=USR(0) 
NEXT 

IF FC)FF THEN F=F+1:GOTO 1600 ELSE RETURN 
PRINT@128,; 

PRINT"THE CHAMP IS...."; 

TF N§(1)<)"" PRINT N$(1):GOTO 1690 

TF N$(2)¢)"" PRINT N$(2):GOTO 1690 

TF N§(3)¢)"" PRINT N$(3) 

FOR T=1T01200:NEXT 

CLS 

INPUT"READY TO TRY ANOTHER TRIANGLE"; Z$ 
IF Z§¢)"¥" AND Z§()"YES" THEN 1750 
CLS:FOR T=1T03:J(1)=0:NEXT:P=0 
RESTORE :GOTO 240 

PRINT 

PRINT"END OF TRIANGLE.....":Fs0 

POKE 31265,90:POKE 31266,120:X=USR(0) 
IF F(>15 THEN F=F+1:GOTO 1770 

END 


Variables and Strings 


N$q) - Players’ names 
L(D,L - Selection of one location by the computer 
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W - Triangle graphics 

J - Character position of current player 

NN - For sound output (machine program) 

A - User move number (value of X$) 

K - Value of the distance from the start position to stop 
D - For direction of character (around inside of triangle) 
J) - For advance or elimination of a player 

U - Player eliminated 

F - Variable for sound output 


Explanation of the Program Lines 

Lines 10-230 display the general operating instructions. 

Lines 240-280 request the three players’ first names. 

Lines 290-350 select the first player. 

Lines 360-520 indicate who the first player is, display the 
triangle, and establish the sound routine. 

Lines 530-620 keep track of the current player’s location within 
the triangle. 

Lines 630-690 accept the player’s move. 

Lines 700-930 move the player’s character in the correct di- 
rection and keep it within the triangle. 

Lines 940-1020 either advance or eliminate the player. 

Lines 1100-1140 clear the character before movement. 

Lines 1200-1390 eliminate a player if that player has landed on 
a computer selected location. 

Lines 1400-1560 read the data for all the locations within 
triangle and then select one location. 

Lines 1570-1790 print the winner’s name and allows the users 
to try again. 
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MIND INVASION 


The computer will try to invade your mind with as many moving 
graphics as possible. What you must do is move out of the way of the 
two blocks before they meet in the middle of the video and squash 
you. To gain any points at all, you must be constantly moving up or 
down. This motion is achieved by using the up and down arrows, of 
course. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. 


Sample Run 


MIND INVASION 


NUMBER OF PLAYERS? 5 
PLAY OUTLINE NECESSARY? YES 
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EACH OF YOU 5 PLAYERS WILL 
EXPERIENCE A NEW FORM OF MIND 
INVASION. THE OBJECT OF THE GAME: 
KEEP PLAYING AS LONG AS POSSIBLE 
WITHOUT GETTING CRUSHED. 

YOU, THE USER WILL BE LOCATED AT 
THE CENTER OF THE VIDEO DISPLAY 
IN THE FORM OF A ‘+’ SIGN. YOUR 
ONLY MOVEMENTS WILL BE STRAIGHT 
UP OR STRAIGHT DOWN, ACCOMPLISHED 
WITH THE UP ARROW AND DOWN 
ARROW KEYS. 


PRESS A KEV..... 


TO TAKE ADVANTAGE OF ANY POINTS 
YOU MUST BE CONSTANTLY MOVING 

UP OR DOWN. THE OUTER BOUNDARIES 
OF THE VIDEO WILL CONTAIN 

FLASHING ASTERISKS FOR CONFUSION. 
ALSO CONTAINED IN THOSE BOUNDARIES 
ARE TWO BLOCKS THAT, 

WITHOUT NOTICE, WILL MOVE VERY 
QUICKLY TOWARD THE CENTER TO 
YOUR LOCATION. IF YOU ARE SUCCESS- 
FUL IN MOVING OUT OF THE WAY, 

YOU CAN CONTINUE PLAYING. IF, ON 
THE OTHER HAND, YOU GET SMASHED, 
PLAY WILL ADVANCE TO THE NEXT 
PLAYER. THIS IS ALSO TRUE IF 

COLLIDE INTO THE BLOCKS. 


PRESS A KEV..... 


THE GAME ENDS WHEN EACH 

PLAYER HAS PLAYED A TOTAL OF 2 (TWO) 
ROUNDS. THE PLAYER FINISHING WITH 
THE HIGHEST SCORE WILL BE THE 
WINNER..... 


ENTER THE 5 PLAYERS 
FIRST NAMES NOW 
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NUMBER 
OF PLAYERS 


SET VARIABLES 
GRAPHICS 


PRINT PLAYER 
BEGIN PLAY 


DEDUCT 
Y POINT VALUE 
CONTINUE 
GRAPHICS 
DOWN” . 
¥ CHARACTER MOVE 
a | 
y CHARACTER MOVE 
DEDUCT ADVANCE 
y POINT VALUE PLAYER 
SORT SCORES 


PRINT TOP PLAYER [y 


STOP 


Flowchart for Mind Invasion. 
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PLAYER. | POINTS = 


Program Listing 


10 
20 


30 

40 

50 

60 

70 

80 

90 
100 
110 
115 
120 
130 
140 
150 
160 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
316 


REM PROGRAM TITLE: MIND INVASION 
REM INSTRUCTION ROUTINE 


CLEAR $00:GOSUB 1500:J=1:TR=1 

REM OUTER GRAPHICS 

4219360: ¥=15423:K2191:PN=1:TX=¥+417:TL=TX 
POKE X,K:POKE ¥,K:POKE X+10,K:POKE Y-10,K 
L2X465: V2 (¥469)-1sJede1 

IF J¢>}INT(K/22) THEN 60 

REM GOTO CHARACTER PRINT / IF DONE 

IF Jol6 THEN N=42:POKE TX,43:GOTO 140 
POKE X,K:POKE ¥,K:POKE X+10,K:POKE Y-10,X 
IF PN=l THEN A(1)=¥:A(2)sY:L=eA(1) :R=AC2) 
X2(X¥464)-1:Y=¥4+65 

JeJ+1:FN=2:GOTO 100 

PRINT@1000,"YOUR POINTS ="; 

PIsQ 

GOSUB 910 

PRINT@960,"PLAYER...";N$(PZ); 

REM CHARACTER GRAPHICS VARIABLES 

Je? £=448:F=505: Tel :E2sE:FleF:TC#i1:8C=907 
KY¥=1:G=42:GOSUB 380:1F T1)>=3 THEN 880 
PRINT@E ,W$; :PRINT@P ,W$;:E1sE+64:Pick+65 
T=T+1:GOSUB 350 

PRINT@E,LS;:PRINT@E,LS$; 

IF T)=2 THEN J=J-1:GOSUB 380:GOSUB 350 
PRINT@E-64,W$;:PRINT@E1,WS; 
PRINT@F-~63,W5;:PRINT@FI,WS; 
PRINT@E~64,1L5;:PRINT@E1,1L$; 
PRINT@F~63,L4; :PRINT@F1,L$;:GOTO 400 
E=E-64:F=F-63 > E1=E2+128:FisF2+130 
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320 E2=E24+64:F2=F2+65:T=T+1 

330 REM RESET VARIABLES IF DONE 

395 GOTO 700 

340 IF T)=8 THEN 200 ELSE KY=KY+1;GOTO 260 

350 REM FOR CHARACTER CLEAR 

960 Lo=STRINGS$(J,92):Q$=STRINGS(G,42) 

370 Q1$=STRING$(G,32) :RETURN 

380 WS=STRINGS(J,N) 

390 RETURN 

400 X$=INKEY$:REM USER MOVEMENT 

405 Tl=TI+1:REM LIMIT COUNT WITHOUT MOVEMENT 

410 1F X$=“" THEN 340 

420 Til=i:REM PLACEMENT / LIMIT / RESET 

430 IF ASC(X$)=10 THEN 460 

440 IF ASC(X$)291 THEN 490 

450 GOTO 340 

460 POKE TX,32:TX2T¥+64 

470 IF ABS(TX-TL))=128 THEN TX=TX-64 

480 POKE TX,43:UCKY)=sASC(X$):GOTO 340 

490 POKE TX,32:TX=TX-64 

500 IF ABS(TX-TL))=128 THEN TX=TX+64 

S10 POKE TX,43:U(KY)=ASC(X$):GOTO 340 

600 REM TOP / BOTTOM CHARACTERS 

610 PRINT@TC ,Q$; 

620 PRINT@HC,Q$; 

630 PRINT@TC,Q1$; 

640 PRINT@BC,Q1$; 

650 TC=TC+65:BC=BC-63:G=G~-2 

660 REM REPLACE USER CHARCTER 

670 IF PEEK(TX)=32 THEN POKE TX,43 

680 GOTO 310 

700 REM CRUSHER MOVEMENT 

705 POKE A(1)+10,32.POKE A(2)-10,32 

710 POKE L,32:POKE R,32 

720 IF ABS(L~R)=1 THEN 750 

730 L=L+8:R=R-8 

740 POKE L,K:POKE R,K:GOTO 409 

250 LeA(1):ReA(2):GOTO 800 

760 POKE L,K:POKE L+10,K 

770 POKE R,K:POKE R-10,K 

780 REM RECYCLE 

290 GOTO 400 

800 REM CRUSHED ? 

810 IF PEEK(TX)=32 THEN 840 

820 LF Ti¢=2 AND UCKY)()UCKY-1) THEN PI=PI+ABS 
(TX-TL) :GOSUB 910 

430 GOTO 760 

840 REM YES... .CRUSHED 
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8590 PRINT@960,"(¢ C RUS HED ))"; 
860 POKE TX, 32 

870 FOR LX=1TO2000:NEXT:GOTO 950 

880 REM LIMIT REACHED / NO MOVEMENT 
890 TI=0 

900 PI=PI-ABS(TL-TX) :GOSUB 910:GOTO 920 
910 PRINT@1014,P1; :RETURN 

920 GOTO 230 

950 REM PLAYER ADVANCE / END 

960 TP(PZ)=PI:PI=0:PZ=P2Z+1 

970 iF PZ>PL THEN GOSUB 1200: TR=TR+!:PZ=1 
980 IF TR)=3 THEN GOSUB 1240:GOTO i010 
990 FOR LX=1TO14:PRINT:NEXT 

1000 GOSUB 2100:CLS:J=1:GOTO 40 

1010 REM END / HIGH POINT WINNER 

1020 Ts0:H=1-:1F H=PL THEN 1120 

1030 IF FT(H))=FT(H+1) THEN 1080 

1040 FT=FT(H) :FT(H)=FT(H+1) 

1050 FTCH+1)sFT:N$=N6(H):N§(H) =NS (H+!) 
1060 NS$(H+1)=N6 

1070 T=1 

1080 H=H+1! 

1090 IF H<PL THEN 1030 

1100 IF T=1 THEN 1020:REM NOT REFINED 
1110 GOTO1300 

1126 CLS 

1130 PRINT 

1140 PRINT"YOUR TOTAL POINTS, AFTER 2" 
1150 PRINT"ROUNDS ="; TP(H)+WE(H) 

11460 GOTO 1390 

1200 REM TALLY FIRST ROUND POINTS 

1210 IF TR)=2 RETURN 

1220 FOR [=iTOPL 

1230 WE(1I)=TP(1):NEXT: RETURN 

1240 REM FINAL TALLY 

1250 FOR I={TOPL 

1260 FTCI)sWEC1)+TPCT) 

1270 NEXT 

1280 RETURN 

1900 REM TOP WINNER (MORE THAN 1 PLAYER) 
1310 CLS 

1320 I=1 

1330 PRINT"THE TOP WINNER. ";NG(1)," WITH"; 
1340 PRINT FT(1); "POINTS." 

1350 PRINT"FOLLOWED BY:" 

1360 FOR Is2TOPL: PRINT N$(1I);" WITH"; 
1370 PRINT FT(1); "POINTS." 

1380 NEXT 
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1390 
1400 
1410 
1500 
1310 
1520 
1530 
1340 
1350 
1360 
1376 
1580 
1990 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1736 
1740 
1730 
1760 
1770 
1780 
1790 
1806 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1690 
1900 
1910 
1920 
1929 
1930 
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PRINT 

PRINT"END OF PROGRAM RUN.” 

END 

REM INSTRUCTIONS 

T$="MIND INVASION" 

T=3:CLS 

FOR LX=1TOLEN‘1$) 

PRINTTABSIT) MIDS(I$,LX,1); 

FOR Y=iTOSO:NEXT ¥ 

T=T+4i:NEXT LX 

FOR Y=1TO1000:NEXT 

PRINT 

INPUT"NUMBER OF PLAYERS (1-10)";,PL 
iF PL¢=0 OR PL)=11 THEN 1590 
PRINT"PLAY OUTLINE NECESSARY"; 


INPUT X¢ 
IF &$="N" OR X$="NO" THEN 2040 
PRINT 


PRINT" EACH OF YOU"; FL;"PLAYERS WILL" 
PRINT" EXPERIENCE A NEW FORM OF MIND" 
PRINT“ INVASION. THE OBJECT OF THE GAME: " 
PRINT”"KEEP PLAYING AS LONG AS POSSIBLE" 
PRINT" WITHOUT GETTING CRUSHED." 

PRINT" YOU, THE USER WILL BE LOCATED AT" 
PRINT"THE CENTER OF THE VIDEO DISPLAY” 
PRINT" IN THE FORM OF A ‘+' SIGN. YOUR" 
PRINT' ONLY MOVEMENTS WILL BE STRAIGHT" 
PRINT"UP OR STRAIGHT DOWN, ACCOMPLISHED" 
PRINT"WITH THE UP ARROW AND DOWN” 
PRINT"ARROW KEYS " 

PRINT 

PRINT"PRESS A KEY... " 

X$=INKEY$:.1F X¢="" THEN 1790 

PRINT 

PRINT"TO TAKE ADVANTAGE OF ANY POINTS" 
PRINT"YOU MUST BE CONSTANTLY MOVING," 
PRINT"UP OR DOWN. THE OUTER BOUNDRIES" 
PRINT"OF THE VIDEO WILL CONTAIN” 

PRINT" FLASHING ASTERISKS, FOR CONFUSION. 
PRINT"ALSO CONTAINED IN THOSE BOUNDRIES” 
PRINT"ARE TWO BLOCKS THAT," 
PRINT"WITHOUT NOTICE, WILL MOVE VERY” 
PRINT"QUICKLY TOWARD THE CENTER TO" 
PRINT" YOUR LOCATION. IF YOU ARE SUCCESS-" 
PRINT"FUL IN MOVING OUT OF THE WAY" 
PRINT" YOU CAN CONTINUE PLAYING. IF, ON” 
FOR LX=1T02600:NEX&T 

PRINT"THE OTHER HAND, YOU GET SMASHED" 


1940 PRINT"PLAY WILL ADVANCE TO THE NEXT” 
1950 PRINT" PLAYER. THiS I8 ALSO TRUE IF" 
1955 PRINT" YOU COLLIDE INTO THE BLOCKS." 
1960 FOR iLX=iTG2000 NEXT 

1970 PRINT’ PRESS A KEY....." 

1980 ASsINKEY$:1IF X$=""THEN 1980 ELSE PRINT 
1990 PRINT"THE GAME ENDS WHEN EACH” 

2000 PRINT"PLAYER HAS PLAYED A TOTAL OF TWO” 
2010 PRINT"ROUNDS. THE PLAYER FINISHING WITH" 
2020 PRINT"THE HIGHEST POINTS WILL BE THE" 
2030 PRINT"WINNER....." 

2040 PRINT 

2050 PRINT"NOW ENTER THE";PL; "PLAYERS" 

2060 PRINT“FIRST NAMES" 

2070 FOR isiTOPL: iNPUT N$(1) 

2080 NEXT 

2090 PZ=i 

2100 PRINT N$(PZ);" WILL NOW PLAY, PRESS" 
2105 IF PZ>=2 OR TR)=2 THEN 2150 

2110 PRINT"A KEY WHEN READY..... " 

2120 X$=INKEY$:iF X$="" THEN 2120 

2130 CLS 

2140 RETURN 

2150 PRINT"THE ENTER KEY WHEN READY"; 

2460 INPUT X$:TI=0:RETURN 


Variables and Strings 


X - For the poke graphics for the left side 

Y - For the poke graphics for the right side 

K - Character code for X,Y and above 

PN - Counter to set subscripted variables A(1) and A(2) for block 
start position 

L,R - For left and right movement of blocks 

TX,TL - For user character placement and used to signify character 
area. TX is also for the user character if it is crushed. 

PI - Total points for each player 

PZ - Counter for the correct player 

E,F,T, E2,F2 - For the Print @ graphics for the outer areas of the 
display 

TC,BC - For the top center and bottom center graphics 

KY - For key closure counter. Subscripted variable U (UCKY)) will 
insure that before any points are given, the user isn’t pressing the 
same direction key repeatedly 

G - A constant used for the number of characters for upper/lower 
graphics 
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TI - Counter for point deduction, user asleep? 
T - For outer, upper and lower Print @ graphics 
LX - For time loop 

TP - For total points received by current player 
PZ - Counter for number of players 

TR - Total rounds played 

H - Counter for player 

FT - For players total points after 2 rounds 

WE - Points obtained during first round 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
branches to the instructions. 

Lines 40-80 poke the graphic blocks on the left and right sides 
of the video. 

Line 100 insures that all poke graphics have been completed 
and then branches to the start of the game. 

Lines 110-130 continues the poke graphics if they are done. 

Lines 140-170 start the game and print the player’s name and 
score. 


Lines 200-340 (and lines 600-680) keep all the graphics mov- 
ing. 

Lines 350-390 establish strings made up of characters or blank 
spaces. 

Lines 400-510 accept the user’s up and down character move- 
ment. 

Lines 700-790 move the crusher blocks (left and right) and 
reset them if they coincide. 

Lines 800-870 checks whether or not the user is crushed. If he 
or she has been crushed, play advances to next person. If not, line 
820 tests the current and preceding key closure and the variable TI 
(time limit). If each condition is met the user’s score will increase 
by amount at line 950. 

Lines 880-900 deduct an amount from users score if the time 
limit (TI) has been reached. This is to insure that the user’s charac- 
ter doesn’t remain in one location. 

Lines 910-920 print the player’s score and then recycle and 
continue play. 

Lines 950-980 advance to the next player or terminate the 
game if all have played two rounds. 

Lines 990-1000 are used for player advance. 
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Lines 1010-1100 place the scores (and players) in order from 
the highest score to the lowest score. 

Line 1110 is used for the termination of the run. 

Lines 1120-1160 display the score when only one person is 
playing. 

Lines 1200-1230 set the subscripted variable WE to the user’s 
first round score. 

Lines 1240-1280 set the subscripted variable FT to the user’s 
final score. 

Lines 1300-1410 print the name of the top winner of game and 
then rest of players’ names in descending order. 

Lines 1500-2160 are used for the number of players, their 
names and the general instructions. 

Line 2105 tests the variables PZ and TR to determine which 
player is playing. 
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TRAPPED 


You must trap the computer’s piece. The drawbacks? The com- 
puter’s piece can only be trapped ina left/right movement area. You 
must keep it pinned this way for a certain amount of time. Don’t get 
burned by the computer’s piece: six burns and you’re out! There 
are, of course, other hidden obstacles, which you’ll discover soon. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


TRAPPED 
LIST INSTRUCTIONS? YES 


UP TO 10 PLAYERS CAN 

TRY TO OUTWIT THE COMPUTER AND 
MANEUVER ITS PIECE INTO A SITUATION 
WHERE IT WILL BECOME TRAPPED. 

THE COMPUTER'S PIECE WILL BE A 
SOLID BLOCK, YOURS 

WILL BE TWO SMALL BLOCKS, 
CHR$(179). THE COMPUTER WILL MOVE 
ITS PIECE ALL AROUND THE GAME 
BOARD, CHANGING DIRECTION WHEN IT 
SENSES AN OBSTACLE. YOU WILL 
FOLLOW THE COMPUTER'S PIECE OR 
YOU CAN MANEUVER IT TO A SECTION 
OF THE GAME BOARD WHERE IT WILL BE 


PRESS ENTER? 
TRAPPED, MEANING IT CAN ONLY MOVE 
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INSTRUCTIONS 
N PLAYEAS* NMS 


INITIALIZE 
SOUND ROUTINE 


INITIALIZE 
VARIABLES 


GET USEA 
MOVEMENT 


OUTPUT OUTEA- 
INNER GRAPHICS 


SELECT 
START POSITION 


MOVE COMPUTER 
PIECE 


COMPUTER PIECE 
TRAPPED 


pf SOAT 
Y POINTS 


N 


CONTINUE MOVE 
COMPUTER PIECE 


ADVANCE TO OUTPUT PLAYERS 
NEXT PLAYER AND SCORES 


STOP 


Y 


RECHARGE COMP 
PIECE 


Fiowchart for Trapped. 


LEFT AND RIGHT. THE COMPUTER'S PIECE 
WILL CONTAIN A ‘CHARGE’ IF YOU 
SIMULTANEOUSLY END AT THE SAME SPOT 
THAT THE COMPUTER DOES, YOU'LL 

GET BURNED. SIX BURNS AND YOU'RE 
OUT OF THE GAME. YOU WILL MOVE 
YOUR PIECE USING ALL FOUR ARROW 
KEYS. WHEN YOU MOVE THE COMPUTER 
WILL BLANK ITS PIECE. YOU 

WILL BE ALLOWED ONLY 10 CON- 
SECUTIVE MOVES AT ONE TIME. 

ANYTIME YOU WISH TO MOVE YOUR 
PIECE, HOLD DOWN ANY ARROW KEY 
AND PRESS THE SPACE BAR. 
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KOCK KEKE A EX EX EK 


PRESS ENTER? 


POINTS WILL BE DETERMINED BY HOW 
MANY MOVES IT TAKES YOU 

TO TRAP THE COMPUTER'S PIECE. 
REMEMBER, TO TRAP THE COMPUTER'S 
PIECE, ONLY ALLOW IT TO MOVE 

LEFT AND RIGHT. 


PRESS ENTER TO START? 


Program Listing 


210 REM PROGRAM TITLE: ¢{ TRAPPED > 

20 CLS:CLEAR 100:DIM AA(12),PI(12),18(12) 
30 PRINT CHR$(183);" TRAPPED ";CHRS$(187) 
40 PRINT: INPUT"LIST INSTRUCTIONS"; WS 

50 IF WS="Y¥" OR WS="VYES" THEN GOSUB 3500 
60 CLS:GOSUB 3300:TU=1 

70 QQ=1:MM=0:CR=0: RANDOM 

80 POKE 16526,0:POKE 16527,122 

90 $1=31265:$22S141:CC=0:BR=0:TP=1E+04:TR=TP 
100 REM BORDER GRAPHICS 
110 X=15960:¥=24+63:C=H191:U=0 


224 


120 
130 
140 
130 
160 
170 
180 
190 
195 
198 
200 
2i0 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
455 
360 
370 
380 
390 
395 
400 
405 
410 
4is 
420 
425 
430 
440 
442 
445 
450 
460 
470 
480 
490 
$00 


FOR I=XTOY:POKE 1,149 

POKE 14+960,149:NEXT 

FOR I1=X+64 TO X+INT(CY/19)+85 STEP 64 
POKE 1,149:POKE 14+63,149:NEXT:GOSUB 3450 
REM INNER GRAPHICS 

INeX+128 

R=IN+RND(40):Ri=R:L=RND(2) 

FOR I=IN TO R:POKE 1,C 

IF Lei AND U(=3 THEN POKE 1+64,C 
NEXT : 
R2=RND(7):R3=R2+RND(15):GOTO $00 

FOR I=R1i+Rh2 TO R1+R3 

POKE 1,C:NEXT 

GOTO 560 

UsU+1 

IF U()>5. THEN 180 

REM GRAPHICS FROM RIGHT SIDE 

FOR J=1TO RND(10) 

FOR {=0TO4 

IF ACI)=0 THEN 319 

POKE RCI),C:R¢I)=RC1I)-1 

NEXT I,J 

REM START POSITION 

P=RND(16255) 

IF P¢{=15425 THEN 330 

IF PEEK(P)()32 OR PEEK(P+2)()32 THEN 330 
IF (PEEK (P-~64)+PEEK(P+64))=382 THEN 330 
CP=P+2:POKE P,143:POKE CP,179 

REM MOVEMENT OF COMPUTER PIECE 
$3=210:S54=25 

IF PEEK(P+64)=32 THEN A=1:GOTO 440 
POKE S1,30:POKE 52,190: X=USR(0) 

IF PEEK(P-64)=32 THEN A=2:GOTO 440 
POKE $1,30:POKE S2,200:X=USR(0) 

IF PEEK(P-2)=32 THEN A=3:GOTO 440 


POKE S1,30:POKE 52,83: XsUSR(0) 

IF PEEK(P+2)=32 THEN A=4:GOTO 440 
POKE S1,30:POKE S2,53:X=USR(O) 
GOTO 810 

POKE P,32:I1F PEEK(CP)=32 THEN 1700 
XS=INKEY$:1F X$=" " THEN 200 

GOTO 1100 


ON A GOTO 460,470,480,490 
P=P+64:POKE P,143:MM=0:GOTO 710 
P=oP-64:POKE P,143:MM=0:GOTO 400 
P=P-2:POKE P,143:GOTO 760 
P=P+2:POKE P,143:GOTO 420 

REM WITHIN LIMITS (BOARD GRAPHICS) 
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510 IF ABS((R1i+R3)-IN)>=60 THEN 200 

520 REM GAP TOO SMALL 

930 IF ABS((R1+R2)-R)<(=4 THEN 200 

540 IF R3¢=9 THEN 200 

530 GOTO 210 

360 REM POKE MORE TO RIGHT 

570 IF ABS(CIN+63)-(R14+R3)))=10 THEN 600 
$80 X=X4+C+1:IN=X+128:POKE IN,C 

990 GOTO 240 

600 R4=RND(8):1F R4¢=3 THEN 600 

610 R4=R4+R1+R3 

620 R3=R4+RND(15) 

630 IF ABS(RS-R4)(=2 THEN 620 

640 IF ABS(RS-IN))=62 THEN 680 

630 FOR [=R4 TO RS:POKE 1,C¢ 

660 IF L=1 AND U<)4 THEN POKE 1+64,C 
670 NEXT 

680 REM VARIABLES (RIGHT SIDE GRAPHICS) 
690 FR=IN+62:R(U)=FF INCU) SABS(FF-RS) 
700 GOTO 580 

710 REM DOWN / UP ~ SEARCH LEFT / RIGHT 
720 IF PEEK(P-2)=32 THEN 410 

730 IF PEEK(P+2)=32 THEN 420 

740 IF Asi THEN 390 

750 GOTO 400 

760 REM LEFT / RIGHT - SEARCH DOWN / UP 
770 IF PEEK(P+64)=32 THEN 390 

780 IF PEEK(P-64)=32 THEN 400 

790 IF Az3 THEN 410 

800 GOTO 420 

610 REM TRAPPED (COUNTER) 

815 ACQQ)=A 

620 IF A(QQ)=A(QQ-1) THEN 880 

830 IF MM)=8 THEN 1240 

840 IF MM>=4 THEN S3=S3+10:CR=CR+10 

850 IF $3)=255 THEN S3=255 

860 QQG=QG+1:I1F QQ)=3 THEN QdQ=1t 

870 GOTO 390 

860 IF PEEK(P+2)=179 OR PEEK(P~2)=179 THEN MM=MM+1 
890 GOTO 830 

900 REM USER PIECE / MOVE PER KEY 

910 KE=PEEK(15340):REM SCAN KEYBOARD 
920 IF KE=136 THEN 970 

930 IF KE=144 THEN 990 

940 IF KE=192 THEN 1010 

950 IF KE=i60 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP-64)()32 THEN 960 
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980 POKE CP,32:CP=CP-64:GOTO 1050 
990 IF PEEK(CP+64)()92 THEN 960 


10090 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1390 
1360 
1370 
1380 
1390 
1450 
1460 
1470 
1480 
£490 
1500 
1910 


POKE CP,32:CP=CP+64:GOTO 1050 
IF PEEK(CP+2)()32 THEN 960 

POKE CP,32:CP=CP+2:GOTO 1050 

IF PEEK(CP-2)<()32 THEN 960 

POKE CP,32:CP=CP-2 

POKE CP,179:TP=TP-1 

POKE S1,30:POKE S2,195:X=USR(0) 
REM USER'S MOVES (COUNTER) 
CC=CC+1:I1F CC)=10 THEN CC=0:GOTO 450 
GOTO 900 

REM SOUND / COMPUTER PIECE 

REM CHARGE RATE (DIMINISH BY PLUS) 
POKE $1,30:POKE $2,54:X=USR(0) 
CR=CR+1 

IF GR)=1000 THEN GOSUB 1450:GOTO 1180 
IF CR>=990 THEN 54=54+10 

IF §$4)=2255 THEN S$4=255 

GOTO 450 

REM RECHARGE COMPUTER PIECE 
POKE P,143:FOR C=l TO ((54%2)-100) 
POKE S$1,30:POKE 52,15:X=USR(0) 
NEXT: CR=0°S4=25:POKE P,32 
GOSUB 1510:GOSUB 3450:GOTO 450 
REM TRAPPED ? 

REM CHECK CHARGE RATE FIRST 

IF CR)=925 THEN 1280 

GOTO 12990 

CR=1000:GOTO 1370 

REM TRAPPED COMP. PIECE 

L=0 

POKE P,32:FOR T1=#1T0100:NEXT 
POKE P,143:FOR TI=1TO50 

POKE S1,30:POKE S2,20:X=USR(0) 
NEXT 

LeL+1:1F b¢(s2 THEN 1310 

GOTO 1600 

GOSUB i1450:POKE P,32:MM=0 

P=P+6 

GOTO 450 

REM MESSAGE 
MG=16345:M$="RECHARGING" 

FOR I=1TO LEN(MS ) 

POKE MG,ASC(MIDS(M$,1,1)) 
MG=MG+1:NEXT 

POKE MG,32:RETURN 

MG=16345 
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1320 
1530 
1340 
1590 
1600 
1610 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1890 
1860 
1670 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2110 
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POR J=1TO LEN(M$) 

POKE MG,149 

MG=MG+1:NEXT 

POKE MG,149:RETURN 

REM MESSAGE (TRAPPED) 

MG=16345 

Mo="%*® TRAPPED ®*" 

GOSUB 1470 

GOTO 1910 

REM USER "BURNED" 

MG=163465 

Mé="* USER BURNED *" 

GOSUB 1470 

REM LEAVE USER POSITION AS-IS 
L=0:MM=0 

POKE CP,32:FOR TI=1TO100:NEXKT 
POKE CP,179:FOR Tl=1T050 

POKE S1,30:POKE 52,18: X=USR(0) 
NEXT: IF L¢{si THEN L=L+1:GOTO 1760 
BR=BR+1:GOSUB 1510:GOSUB 3450 
IF BR)=6 THEN GOSUB 1830:GOTO 1870 


GOTO 445 
L=0 
FOR [=iTQ45 


POKE 51,30:POKE S2,I+10 
K=USR(0) NEXT. CLS: RETURN 


PRINT 

PRINT" YOU'VE BEEN BURNED";BR; "TIMES" 
PRINT"SUCKER !!1": TP=0 

PRINT" YOUR OUT OF THE GAME. .".GOTO 2000 
REM TRAPPED 

GOSUB 1830 


PRINT" YA GOT ME TRAPPED, TURKEY i/!" 
PRINT"YOUR TOTAL POINTS NOW EQUAL "; 
PRINT TP 

PRINT"YOU MADE A TOTAL OF"; TR-TP; "MOVES" 
PRINT"BEFORE TRAPPING ME....." 

POKE S1,30:POKE $2,255 

X¥=USR(0) 

REM PLAYER ADVANCE / POINTS 
PI(TU)=TP 

IF TU=N THEN 2100 

TUsTU+ 1 

PRINT"KEY ENTER “;18(TU); 

INPUT W&:CLS 

GOTO 70 

REM ALL PLAYED 

REM SORT AMTS. / PLAYERS 


2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2323 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3490 
3440 
9450 
3460 


IF N=! THEN 2220 

F=0:AA=1 

IF PI(AA)}=PI(AA+1) THEN 2190 

P=PI(AA): PI(AA)=PICAA+1) 
PICAA+1) =P: 1$=16 (AA) 

ISCAA) SIS CAA41) 19 (AAt1) 218 

Fel 

IF AA<N THEN AA=AA+1:GOTO 2140 

IF Fel THEN 2130 

GOTO 2260 

PRINT" YOU'VE PLAYED BY YOURSELF, AGAINST" 
PRINT'THE COMPUTER. YOU WERE BURNED"; BR 


PRINT"TIMES. FINAL TRAPPING SCORE: ";P1I(TU) 


GOTO 2330 
Tet 
PRINT"BEST TRAPPER.....";1§¢1) 


PRINT"TOTAL POINTS =", PI(T) 
PRINT"FOLLOWING ";,1§(1T) 

FOR I=2TON: PRINT [S(1) ; 

PRINT" WITH A SCORE OF: "; 

PRINT PICT) 

FOR Ti=1TO1000:NEXT TI,1 

PRINT 

PRINT"END OF PROGRAM RUN....." 
FOR I=1TO100:POKE $1,30:POKE 52,1+20 
X=USR(0) : NEXT: PRINT 

PRINT"UNLESS ALL WANT TO PLAY AGAIN 2???" 
PRINT"IF 50, TYPE RUN." 

PRINT: FOR Ti=1TO1500:NEXT 

PRINT" END 

END 

REM PLAYERS (AMTS. / NAMES) 
PRINT“ENTER NUMBER OF PLAYERS" 
INPUT N 

IF N¢=0 OR N>=il THEN 3310 
PRINT"NOW ENTER THE";N;, "PLAYER'S" 
PRINT"FIRST NAMES" 

FOR I=1TON 

INPUT 16 (1): NEXT 

PRINT 

PRINT"CURRENT PLAYER'S NAME" 
PRINT’WILL BE PRINTED AT BOTTOM OF" 
PRINT"GAME BOARD....." 

FOR Tl=1TO1200:NEXT 

CLS 

RETURN 

REM PLAYER 

MG=16348 
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3470 FOR I=iTO LEN(I$(TU)) 

3480 POKE MG,ASC(MIDS$(1$(TU),1I,1)):MG=MG+1 
3490 NEXT: POKE MG,32:RETURN 

3500 REM INSTRUCTIONS 

3510 PRINT" UP TO 10 PLAYERS CAN” 

3520 PRINT"TRY TO OUTWIT THE COMPUTER AND" 
3530 PRINT"MANEUVER ITS PIECE INTO A SITUATION" 
3940 PRINT"WHERE IT WILL BECOME TRAPPED." 

3550 PRINT"THE COMPUTER'S PIECE WILL BE A" 
3560 PRINT"SOLID BLOCK, YOURS" 

3570 PRINT’WILL BE TWO SMALL BLOCKS.";CHR$(179) 
3580 PRINT"THE COMPUTER WILL MOVE" 

3590 PRINT"ITS PIECE ALL AROUND THE GAME” 

3600 PRINT"BOARD, CHANGING DIRECTION WHEN IT" 
3610 PRINT"SENSES AN OBSTACLE. YOU WILL" 

3620 PRINT"FOLLOW THE COMPUTER'S PIECE OR" 
3630 PRINT" YOU CAN MANEUVER IT TO A .SECTION" 
3640 PRINT“OF THE GAME BOARD WHERE IT WILL BE" 
3650 INPUT"PRESS ENTER"; W§:CLS 

3660 PRINT" TRAPPED, MEANING IT CAN ONLY MOVE" 
3670 PRINT"LEFT AND RIGHT. THE COMPUTER'S PIECE" 
3680 PRINT"WILL CONTAIN A ‘CHARGE'. IF you" 
3690 PRINT" SIMULTANEOUSLY END AT THE SAME SPOT” 
3700 PRINT"THAT THE COMPUTER DOES, YOU'LL" 
3710 PRINT"GET 'BURNED'. SIX BURNS AND YOU'RE” 
3720 PRINT"OUT OF THE GAME. YOU WILL MOVE” 
3730 PRINT"YOUR PIECE USING ALL FOUR ARROW" 
3740 PRINT"KEYS. WHEN YOU MOVE THE COMPUTER" 
3750 PRINT"WILL 'BLANK' IT'S PIECE. you" 

3760 PRINT"WILL BE ALLOWED ONLY 10 CON-" 

3770 PRINT"SECUTIVE MOVES AT ONE TIME." 

3780 PRINT"ANYTIME YOU WISH TO MOVE YOUR" 

3790 PRINT’PIECE, HOLD DOWN ANY ARROW KEY" 
3600 PRINT’AND PRESS THE SPACE BAR" 

3810 INPUT" PRESS ENTER"; W$:CLS 

3820 PRINT" POINTS WILL BE DETERMINED BY HOW" 
9830 PRINT"MANY MOVES IT TAKES THE USER" 

3840 PRINT"TO TRAP THE COMPUTER'S PIECE." 

3850 PRINT"REMEMBER, TO TRAP THE COMPUTER'S" 
3860 PRINT"PIECE, ONLY ALLOW IT TO MOVE" 

3870 PRINT"LEFT AND RIGHT " 

3880 INPUT"KEY ENTER TO START"; WS 

3890 CLS.RETURN 


Variables and Strings 


TU - Used in conjunction with user’s name to identify player 
QQ - Used for left/right movement of computer piece 
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MM - Number of times computer piece moves left and right before 
final entrapment by the user; used in conjunction with A(QQ) 

CR - Charge rate of computer’s piece 

$1,S2 - For sound location, machine language routine 

CC - User’s number of moves per key closure 

BR - Number of burns player receives 

TP - Total number of points allowable: one deducted for each user 
move 

TR - Used in final message for number of moves player made before 
trapping computer piece 

X, Y,C,U - Used for graphics and the game board 

IN, R, R1, R2, R3, R4, R5, L, FF, R(U), N(U) - Determine the length and 
width of the inner poke graphics (left to right, right to left) 

P - Used to determine the starting location of the computer piece 

CP - Users start location, two more than the variable P 

S3,S4 - Used in conjunction with computer piece for extra sound, 
along with variables 51 and S2 

A — Determines route that computer’s piece will take in conjunc- 
tion with P (peek) arguments 

KE - Key closure for user’s moves. The arrow key must be pressed 
in conjunction with space bar for correct entry 

L - Used again for the length of sound output 

MG - Poke location for print messages 

PI(TU) - For each players point amount, will return 0 (zero) if 
BR>=6 (user burned 6 times) 

I$(TU) - Player's name, turn 

N - Number of players (total) 


Explanation of the Program Lines 


Line 50 checks the entry of W$ for the print of the instructions 
at lines 3500-3890. Lines 3300-3440 (a GOSUB) will allow the entry 
of up to 10 players and their names. 

Line 70 initializes some of the variables for each player. 

Line 80 initializes the machine language subroutine. 

Lines 90-150 poke the outer graphics and then branch to the 
subroutine in lines 3450-3490 for the printing of the current player’s 
name within the graphics. 

Lines 160-310 establish the inner graphics. When the variable 
L=1, a larger (double CHR$(191)) will be poked. Lines 500-550 
work in association with these lines to keep the graphics within 
limits. Also used with the inner graphics are lines 560-670, which 
move the graphics more to the right. Finally, the game board 
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graphics use lines 680-700 to establish the variables for the inner 
graphics. 

Lines 320-360 select the computer’s start location randomly 
and establishes the user’s start location at two more than the 
computer’s. The arguments contained here assure that the start 
location will be in a blank area and that no borders are above or 
below the start location. 

Lines 370-490 are used for the movement of computer’s piece 
and the sound output, which uses locations $1 and S2. These lines 
use a search-ahead routine making sure the area ahead will be blank. 
Also used in conjunction with these arguments are lines 710-800, 
which assure that the computer’s piece will have an alternate route 
to take unless trapped. Lines 460 and 470, where MM = 0 (reset 
counter), insure that the computer will only be trapped in a left and 
right direction; i.e., it can only move left or right. 

Line 442 tests for the user’s key closure. Holding down any 
arrow key will branch the flow to line 900. If none of the arguments 
are met (holding down the space bar, along with the selected arrow 
key) the program branches back to the computer piece movement. If 
any of the conditions are satisfied, the program makes sure that 
movement is toward a blank space, or else the movement cannot 
occur. 

Line 1050, where TP=TP—1, subtracts one point for each 
move from the total of 10,000 points that the player is allowed. 

Line 1060 outputs the user’s sound. 

Lines 1070-1090 count the number of moves the player makes. 
These lines will only allow 10 consecutive moves at one time. When 
this counter reaches a count of 10, the program resumes with the 
computers movements in line 450. 

Lines 800-890 test to see if the computer's piece is actually 
being trapped (line 880). If it is, the variable MM is increased by 
one. If the count reaches 4, the pitch of the computer’s sound will 
become higher and its charge will also increase. If the total count 
reaches 8 the computer’s piece is trapped, and program flow 
branches to line 1240. 

Lines 1100-1170 increase and test the computer’s charge. If 
the charge rate is greater than or equal to 990, then the pitch will 
change for the computer’s piece. When the charge rate reaches 
1000, play comes to a halt until piece is recharged at lines 1180- 
1220. 

Lines 1240-1270 also test the charge rate of the computer’s 
piece. If it is greater than or equal to 925, the charge rate will 
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automatically become 1000. This will give the computer a break by 
advancing its piece 6 places to the right in lines 1280 to 1370. 

Lines 1290-1360 are used for the final trapping of the com- 
puter’s piece. Play will then branch to line 1600. 

Lines 1420-1820 are for the print messages at the lower part of 
the game board. They also test burn amounts (BR) that the user has 
received. If BR is greater than or equal to 6, program flow branches 
to line 1870, where the player loses all his points, and the next 
player is given a chance to play (if applicable). 

Lines 1910-1990 print the messages if the computer’s piece is 
trapped. 

Lines 2000-2060 advance to the next player, if the condition 
TU= Nis not met. Scores points are also set with with subscripted 
variable PI(TU). 

Lines 2100-2200 sort all players according to their scores, 
placing the highest scorer first and so on. 

Lines 2220-2250 displays a message when there is only one 
player. 

Lines 2260-2410 print the players’ names and their scores. 

Lines 3300-3440 allow the entry of up to 10 players and their 
first names. 

Lines 3450-3490 print the player's first name at the lower part 
of the game board when it is his or her turn. 

Lines 3500-3890 print the general instructions. 


233 


EVERYBODY THAT WANTED 
OFF ON THE FIFTH FLOOR— 
HERE IT IS! 


NOBODY WANTS 
OFF HERE!! 


ELEVATOR 


Guess what? You’ve been fired from your present job! Guess what 
else? The computer has hired you to be an elevator attendant! If 
you don’t have a sharp memory, you'll get paid nothing. You see, you 
must remember what is on every floor and who wants off there. 
Some of the customers might even give you some tips! All is not 
lost, not yet that is... Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 


wee ELEVATOR #1 
INSTRUCTIONS REQUIRED (Y/N)?_Y_ 
FIRST NAME? FUZZY 


PRESENT OCCUPATION? BELLHOP 

YOU HAVE JUST BEEN FIRED AS A BELLHOP!! 
BUT, YOU ARE IN LUCK !! THE 

COMPUTER HAS JUST HIRED YOU TO 

BE AN ELEVATOR ATTENDANT. YOUR 

JOB WILL BE QUITE SIMPLE, FUZZY. 

ALL YOU HAVE TO DO IS REMEMBER 

ALL THE FLOORS (16 TOTAL) 


234 


AND WHAT IS CONTAINED ON EACH 
OF THEM, SO YOU CAN TAKE ALL 
OF MY CUSTOMERS TO THEIR 
RIGHT LOCATION..... 

PRESS A KEV... 


| ALMOST FORGOT TO TELL YOU, ALL 


CUSTOMERS, WHEN STEPPING ONTO THE 


ELEVATOR, WILL TELL YOU WHAT THEY 
WANT: THEY WILL ONLY TELL YOU THIS 
ONCE. FOR EVERY CUSTOMER YOU 
PLACE ON THE RIGHT FLOOR, YOU'LL 
BE PAID $10.00, THAT IS THE ONLY 
WAY YOU'LL GET PAID. CUSTOMERS 
WILL BE GETTING ON THE ELEVATOR 
AT DIFFERENT STOPS; YOU MUST 
REMEMBER THESE ALSO, FUZZY. 
PRESS A KEV... 

HERE ARE THE FLOORS AND TITLES: 

2) WOMEN’S CLOTHES 

3) MEN'S CLOTHES 

4) CHILDREN’S CLOTHES 

5) INFANT'S CLOTHES 

6) TOYS 

7) CARPETS 


8) COMPUTERS 
9) APPLIANCES 


10) FURNITURE 

11) HARDWARE SUPPLIES 

12) HOBBY SUPPLIES 

13) AUTO SUPPLIES 

14) OFFICE SUPPLIES 

15) BATHROOM ITEMS 

16) BEDROOM ITEMS 

YOU SHOULD BE ALL SET, FUZZY 
FUZZY, YOU NOW HAVE 7 CUSTOMER(S) 
GETTING ON MY ELEVATOR. 


THE CUSTOMERS’ DESTINATION(S): 
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COMPUTER FLOOR 

AUTO SUPPLIES 

CARPET FLOOR 

HARDWARE SUPPLIES 

HARDWARE SUPPLIES 

COMPUTER FLOOR 

INFANT’S CLOTHES 

PRESS A KEV... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 5. 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 7 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 5. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 17 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 10. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 
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PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

YOU ARE ON THAT FLOOR, FUZZY! 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 8. 

2 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


FUZZY YOU JUST HAD 5 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN’S CLOTHES 

CARPET FLOOR 

BATHROOM ITEMS 

BEDROOM ITEMS 

HARDWARE SUPPLIES 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 11 

3 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 7 

IF YOU WANT TO GO UP, USE A 
HIGHER NUMBER THAN THIS FLOOR. 
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N 


CONTINUE 
INSTRUCTIONS 


REAI 
DATA LIST 


PRINT NO’S 
FLOOR TITLES 


GETC 
CUSTOMERS 


SET TITLES 
GSI 


PRINT C 
TITLES 


USER 
DIRECTION 


NG = NC + H MESSAGE 


POKE FLOOR 
NUMBER-VIDEO 


Flowchart for Elevator. 


PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 12 

FUZZY, NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

FUZZY, YOU JUST HAD 4 MORE 
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CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
MEN’S CLOTHES 

FURNITURE FLOOR 

WOMEN’S CLOTHES 

GROUND FLOOR 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 13. 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
FUZZY, YOU JUST HAD 4 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN’S CLOTHES 

WOMEN'S CLOTHES 

TOY FLOOR 

MEN'S CLOTHES 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: ELEVATOR 
20 CLS:WSa"SSHHeee. FH" 
30 DIM F(60),F$(60),G5(60) 
40 RANDOM 
50 PRINT TAB(10)""** ELEVATOR ®**" 
6G PRINT 
70 PRINT"INSTRUCTIONS REQUIRED (Y/N)"; 
80 INPUT I$:I1F I$="N" THEN Nel 
90 INPUT'FIRST NAME";N$ 
100 PRINT: IF N=i THEN 230 
410 INPUT“PRESENT OCCUPATION"; PS 


120 PRINT" YOU HAVE JUST BEEN FIRED AS A "; 
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125 
130 
140 
150 
160 
170 
180 
190 
200 
2i0 
220 
230 
Z240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
399 
360 
370 
380 
370 
399 
400 
4i0 
420 
430 
440 
430 
460 
470 
475 
480 
490 
500 
510 
220 
530 
540 
530 
560 
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PRINT P§,"ti" 

PRINT"BUT, YOU ARE IN LUCK !! THE" 
PRINT"COMPUTER HAS JUST HIRED YOU TO" 
PRINT’ BE AN ELEVATOR ATTENDANT. YOUR” 
PRINT" JOB WILL BE QUITE SIMPLE, "“;NS$ 
PRINT"ALL YOU HAVE TO DO IS REMEMBER" 
PRINT"ALL THE FLOORS (16 TOTAL)" 
PRINT"AND WHAT IS CONTAINED ON EACH" 
PRINT"'OF THEM, SO YOU CAN TAKE ALL” 
PRINT’OF MY CUSTOMERS TO THEIR" 
PRINT"RiGHT LOCATION..... i 

REM WHAT'S ON EACH FLOOR 

FOR I=2 TO 19:READ FS(1):NEXT 

IF Nei THEN 370 ELSE GOSUB 2150:PRINT 
PRINT"'I ALMOST FORGOT TO TELL YOU, ALL“ 
PRINT"CUSTOMERS, WHEN STEPPING ONTO THE” 
PRINT"ELEVATOR, WILL TELL YOU WHAT THEY” 
PRINT"WANT, THEY WILL ONLY TELL YOU THIS” 
PRINT"ONCE. FOR EVERY CUSTOMER YOU" 
PRINT" PLACE ON THEIR RIGHT FLOOR, YOU'LL" 
PRINT"BE PAID $10.00, THAT IS THE ONLY" 
PRINT"WAY YOU'LL GET PAID. CUSTOMERS" 
PRINT"WILL BE GETTING ON THE ELEVATOR" 
PRINT"AT DIFFERENT STOPS; YOU MUST” 
PRINT" REMEMBER THESE ALSO, ";N$;"." 
GOSUB 2150 

PRINT"HERE ARE THE FLOORS AND TITLES:" 
FOR I=2 TO 16 

PRINT 1,") "jFS(T); 

IF [=8 THEN TT=1*200:PRINT:GOSUB 2190 

IF I)=2 AND I(=5 THEN 440 

IF I)=6 AND I(=10 THEN PRINT:GOTO 470 

IF I)sii AND I¢=14 THEN 450 

IF I}=id AND I{=16 THEN 460 

PRINT" “;F$(17):GOTO 470 

PRINT" ",FS(18):GOTO 470 

PRINT" "| FSC19) 

IF RX¥=1 THEN RETURN ELSE NEXT 

REM VARIABLE RX FOR FRINT ELEMENTS 

FOR I=1 TO 6.PRINT:NEXT.TT=TT+900 

GOSUB 2190:CLS:C=0.GK=0 

PRINT" YOU SHOULD BE ALL SET ";N$ 
TT=TT-900.GOSUB 2190:RX=1 

REM GET CUSTOMERS 

C=RND(PEEK(33)+1) 

PRINT N$;" YOU NOW HAVE"; C;"“CUSTOMER(S)" 
PRINT"GETTING ON MY ELEVATOR." 

BEM GET C RESPONSES 


$70 [T=1 

580 REM FLOOR NUMBER 

590 FsRND(PEEK(49)4+1i):IF Fei THEN 970 
595 IF F=TF THEN 590 

600 FCI)=sF:ilslel 

610 IF I¢=C THEN 590 

620 REM FLOOR TITLES 

630 FOR I=1 TO C 

640 G$(T)=FS(F(I)) 

630 NEXT 

660 GOSUB 2190:PRINT 

670 PRINT"THE CUSTOMERS DESTINATION(S):" 
680 PRINT: FOR I=i TO C 

690 PRINT G$(T),""; 

700 FsF(r) 

710 IF F)=2 AND F(=5 THEN 760 

720 IE F)=it AND Ft=14 THEN 770 

730 IF F>=15 AND F(=1ié THEN 780 

740 PRINT" FLOOR" 

750 NEXT:GOTO 790 

760 GOSUB 440:GOTO 730 

770 GOSUB 450:GOTO 750 

780 GOSUB 460:GOTO 750 

790 GOSUB 2150 

800 CLS 

810 PRINT"PRESS U FOR <UP)" 

820 PRINT" PRESS D0 FOR <DOWN>" 

830 PRINT"THEN ENTER THE FLOOR NUMBER" 
840 NN=0:REM DIRECTION 

850 GOSUB 2160 

860 D$=A$:1F DS="U" Dés"UP": GOTO 870 
865 IF D$="D" THEN DS="DOWN":GOTO 870 
868 GOTO 950 

870 PRINT"DIRECTION: “;D$ 

880 PRINT"FLOOR NUMBER"; 

890 INPUT FR 

895 IF FR=1 AND TF=0 THEN 1280 

900 IF FR(1 OR FR)16 THEN 800 

905 IF FR=TF THEN 1280 

910 IF FR<TF AND D$=s"UP" THEN 1260 

915 IF FR)TF AND D$="DOWN" THEN V=1:GOTO 1260 
920 GOSUB 2190:CLS:REM PAUSE BEFORE START 
930 IF D&="UP" THEN 970 

940 IF D$="DOWN" THEN 1040 

950 PRINT"SELECT A DIRECTION ";N6;"1!" 
960 PRINT: GOTO 810 

970 REM "UP" 

960 IF TF)=17 THEN 1030 
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990 GOTO 1300 

1000 PRINT’ YOU ARE ON THE ";T$;" FLOOR ";NS 
1010 PRINT"YOU CAN NOT GO ANY “;H$; "Fi" 
1020 GOTO 960 

1030 TS="TOP":H$="HIGHER":GOTO 1000 

1040 IF TF(=1 THEN 1060 

1030 GOTO i070 

1060 T$="BOTTOM” :H$="LOWER":GOTO 1000 

1070 REM "DOWN" CONTINUED (MOVEMENT) 

1080 FS=P-512:NN=1 

1085 IF FF)=58 AND FF(=64 THEN 1220 

1090 POKE P,FF 

1100 FOR T=1 TO 40:NEXT 

1110 POKE P,32:POKE P+1,32:P=P-64 

1120 IF P<)}FS THEN 1085 

1130 REM CONTINUE IF NOT ON FLOOR 

1140 IF TF()FR THEN 1160 

1190 GOTO 1500 

1160 FS=FS-448 

4170 IF Pé=15390 THEN 1190 

1180 GOTO 1085 

1190 POKE P,32:POKE P+1,32:P=16350 

1200 FS=P-512:FF=FF-1:TF=TF-1 

1210 GOTO 1085 

1220 REM FLOORS ABOVE 9 

1230 POKE P,49:POKE P4+1,FF-10 

1240 IF NN=1i THEN 1100 

1250 GOTO 1340 

1260 PRINT“ IF WANTING TO GO ";D$;", USE A" 
1265 IF Vel Ve0:PRINT"USE A LOWER NUMBER.":GOTO 1275 
1270 PRINT"HIGHER NUMBER THAN THIS FLOOR.” 
1275 GOTO 1290 

1280 PRINT"YOU ARE ON THAT FLOOR, “;NS;"!1" 
i290 GOSUB 2190:GOTO 800 

1300 REM "UP" MOVEMENT 

1310 IF TF=0 THEN 1460 

1320 FS=P+512:1F FS)=16350 THEN FS5=16350 
1325 IF FF)=58 AND FF(=64 THEN 1220 

1330 POKE P,FF 

1340 FOR T=i TO 50:NEXT 

1350 POKE P,32:POKE P+1,32:P=P+64 

1360 IF P()FS THEN 1325 

1370 REM CONTINUE IF NOT ON FLOOR 

1380 IF TFE¢)FR THEN 1400 

1390 GOTO 1500 

1400 FS=F5+448 

4410 iF P)=16350 THEN 1430 

1420 GOTO 1325 
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1430 POKE P,32:POKE P+1,32:P=15390 

1440 FSsP+512:FF=FF+1:TF=TF+1 

1450 GOTO 1325 

1460 TP=1:P=15902:FF#49 

1470 FS=P+448:GOTO 1325 

1500 REM ON FLOOR REQUESTED 

1510 IF FE)=s58 AND FF(=64 THEN 1530 
1520 POKE P,FE:GOTO 1540 

1530 POKE P,49:POKE P+1,FF-10 

1540 FOR I=i TOC 

1550 IF FR=F(I) THEN 1570 

1560 NEXT:GOTO 1600 

1570 PAsPA+!0:KG=KG+! 

1980 FCI) =0:XX=1 

1590 GOTO 1560 

4600 REM DID CUSTOMERS WANT OFF HERE 
1610 IF XX=0 THEN 1630 

1620 XX=0:GOTO 1770 

1630 PRINT N$;" NO CUSTOMERS WANTED OFF" 
1640 PRINT"ON THIS FLOOR...":NC=NC+! 
1645 HJsHJ+1 IF Hd)=4 THEN HJ=0:FZ=1 
1650 REM MORE CUSTOMERS STEPPING ON 
1655 AA=RND(2)-1F JV=1 THEN 1730 

1660 IF FZ=1 OR FR=1 THEN AA=1:FZ=0 
1670 IF AA=1 THEN 1690 

1680 GOTO 1730 

1690 YU=RND(5) :YYsC:C#C+YU:C2=YU 

1760 IF €)=59 THEN JV=1:C=C-C2:GOTO 1730 
1710 REM GET DESTINATIONS 

1720 GOTO 18900 

1730 REM CONTINUE (IF NOT FINISHED) 
1740 KG=0:IF GK)=C THEN 1940 

1750 GOSUB 2190 

1760 GOTO 800 

1770 PRINT KG;"OF THE CUSTOMER(S) JUST" 
1780 PRINT"STEPPED OFF OF MY ELEVATOR, "; 
1785 PRINT N$;"“.":GOSUB 2700 

1790 GK=GK+KG:GOTO 1650 

1800 REM YY MORE DESTINATIONS 

1810 YU=ABS(C-YY):IF GK)C THEN 1940 
1820 PRINT N$,” YOU JUST HAD"; YU; "MORE" 
1830 PRINT“CUSTOMERS STEP ONTO THE" 
1840 PRINT"ELEVATOR. THE DESTINATION(S):" 
1850 KG=0:PRINT:FOR I=sY¥+1 TO C 

1860 F=RND(PEEK(49)41) 

186% IF F=TF THEN 1860 

1870 IF Felt THEN F$(1)="GROUND":FZ=1 
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1880 FCI)=F:NEXT:REM FLOORS 

18690 REM TITLE OF FLOORS 

17900 FOR I=¥Y¥+i TOC 

1910 GSCIT)=FS¢(F(I)) NEXT 

1920 FOR I=¥Y+! TO ¢ 

1930 GOTO 690 

1940 REM STOP / CONT 

1950 PRINT: PRINT"YOU HAVE NOW COLLECTED: " 
1960 PRINT USING W$;PA:PRINT:GOSUB 2190 
1965 PRINT: GOSUB 2500 

1970 IF JV=1 OR GK)=C THEN 1990 

1980 GOSUB 2190:GOTO 800:REM ALL NOT OFF 
1990 PRINT:GOTO 2300 

2000 REM DATA FOR FLOORS 

2010 DATA WOMEN'S ,MEN'S, CHILDREN'S, INFANT'S 
2020 DATA TOYS,CARPET, COMPUTERS 

2030 DATA APPLIANCES, FURNITURE,HARDWARE 
2040 DATA HOBBY,AUTO,OFFICE 

2050 DATA BATHROOM, BEDROOM 

2060 DATA CLOTHES, SUPPLIES, ITEMS 

2070 REM DATA ELEMENT 17 WILL BE USED 
2080 REM WITH ELEMENTS 2 - § 

2090 REM DATA ELEMENT 18 WILL BE USED 
2100 REM WITH ELEMENTS it - 14 

2110 REM DATA ELEMENT 19 WILL BE USED 
2120 REM WITH ELEMENTS 15 & 16 

2150 PRINT: PRINT“PRESS A KEY..." 

2160 AS$=INKEY$ 

2170 IF A$="" THEN 2160 

2180 RETURN 

2190 REM TIME LOOP 

2200 FOR T=1 TO TT:NEXT 

2210 GOTO 2180 

2300 REM CONTINUE ? 

2310 PRINT"WOULD YOU LIKE TO TAKE ON" 
2320 PRINT"SOMEMORE CUSTOMERS ";,N8 

2330 PRINT"YOUR TOTAL EARNINGS: "; 

2340 PRINT USING WS; PA; 

2330 INPUT A$ 

2360 IF A$(>"¥" AND A$<()"YES" THEN 2400 
2370 TT=2000: JV=0: PRINT 

2380 PRINT"YOU ARE ON FLOOR ";TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT"END OF ELEVATOR." 

2420 END 

2300 REM POINT SCALE / PAY DEDUCTION 
2510 IF NC<=0 THEN NC=0:RETURN 
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2520 PRINT"YOU MADE";NC,; "STOPS THAT WERE" 
2530 PRINT"NOT NECESSARY ";N$;". YOU" 
2540 PRINT"WILL TAKE A DEDUCTION IN PAY" 
2550 PRINT"OF $20.00 FOR EACH ONE OF" 
2560 PRINT"THOSE STOPS, TOTAL"; 

2570 NN=NC*20:PRINT USING W$,NN 

2980 PRINT"LEAVING YOU"; 

2590 PA=PA-NN 

2600 PRINT USING W$;PA:GOSUB 2190 
2610 RETURN 

2700 REM ANY TIPS ? 

2710 IF KG<si THEN RETURN 

2720 AAsRND(2) 

2730 IF AA=i THEN RETURN 

2740 TI=RND(100) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT"YOU'RE IN LUCK “;NS;", A" 
2780 PRINT"NICE CUSTOMER JUST GAVE" 
2790 PRINT" YOU A TIP OF"; 

2800 PRINT USING W$;,TI 

2810 GOSUB 2190:RETURN 


Variables and Strings 


WS - Used for all money amounts 

N$& - First name of user 

N - 0/1 variable for list of instructions 
P$ - User’s current occupation 

F§() - Titles of floors 

TT - Time (pause) loop 

RX - For print statements from data list 
C - Number of floors 

GK - Number of correct stops 

TF - Present floor number 

F() - Number of each floor (random) 
G$(D - Title of floor (andom) 

FR - Input floor number 

D$ - Direction, up or down 

NN - For downward direction 

V - 0/1 conditional variable for print statements 
T$,H$ - For print statements 

FF - Floor number 

P,FS - Poke locations 

PA - Amount of pay 
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KG - Correct floor 

XX - 0/1 condition, correct floor 

NC - Counter, unnecessary stops 

HJ - Counter, user guessing 

FZ - Used in conjunction with HJ 

JV - Number of floors reached 

AA - Random 1 or 2 for selection of more patrons getting on the 
elevator 

YU - Random amount for more customers 

YY - For extra print elements (more customers getting on elevator) 

C2- Equals the amount of YU. If C (floors) is greater than or equal to 
59, C will equal C minus C2 (the amount selected) 

YU - Used again as the ABS amount of C minus YY 

TI - Random amount for any tips user might receive 


Explanation of Program Lines 


Line 20 establishes the format in which amounts of money will 
be printed. 

Line 30 contains the dimension statements for the arrays 
containing the floors and their titles. 

Lines 50-360 display the general instructions if they are 
needed. 

Lines 370-480 prints all floor numbers and titles. These are 
only displayed for a predetermined amount of time (variable TT) so 
the user will be dependent upon his or her memory. 

Line 490 initializes the variables C and GK so that if the 
program is played more than once, these will be reset to 0 (zero). 

Lines 520-550 select a random number of customers, up to and 
including 10. 

Lines 560-610 select C floor numbers at random. The IF F=1 
THEN 590 in line 590 insures that floor 1 will not be chosen during 
the first selection process. The IF F=TF then 590 in line 595 
insures that the floor the user is currently on will not be chosen at 
the beginning of any round of play. 

Lines 620-650 select the titles of the floors. F$(F()), and 
assigns these to G§(I). 

Lines 660-790 print all floor titles selected. The user will be 
allowed to study these titles for as long as he or she wishes. 

Lines 810-850 ask the user to input a direction, either down 
<D> or up <U>. If the variable NN is equal to 1, the direction will 
be downward. 
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Lines 860-865 set the contents of D$ to A$, which is the 
direction the user entered. 

Line 868 loops to a print statement in line 950 and then back to 
line 810, if the user does not select <D> or <U> fora direction. 

Lines 870-940 ask the user for a floor number (line 890, vari- 
able FR). 

Line 895 is used only at the beginning of play. If the user 
selects floor 1, program branches to a print statement in line 1280 
and then back to line.800. 

Line 900 insures that selected floor number is not less than 1 or 
greater than 16. 

Line 905 branches to a print statement if the user inputs the 
current floor (TF) he or she is on. 

Lines 910-990 test each direction and the value of each floor 
number to see if they are coordinated. If they are not valid, the 
program will branch to a suitable print statement. 

Lines 1000-1060 are the print statements displayed if user 
tries to go below floor 1 or above floor 16. 

Lines 1070-1470 are used for the movements of the elevator 
floor numbers to simulate the motion of the elevator. These lines 
will either move elevator down or up and poke the floor numbers in 
the video memory. 

Lines 1500-1590 compare the current floor number with the 
floor number in memory F(I). If the selected floor does match, 
variable PA (for pay) is increased by 10; variable KG, for total 
correct floors, is increased by 1. Subscripted variable F(1) is then 
equal to 0 (zero), so that it is not matched again during the loop. 
Variable XX is then equal to 1 because a customer did want off on the 
inputted floor. 

Lines 1600-1620 test the value of the variable XX. Ifit is equal 
to 0 (zero), no customers wanted off. If it is equal to 1, one or more 
customers did get off. 

Lines 1630-1645 display the print statement indicating that no 
customers wanted off. 

Lines 1650-1700 select a number of additional elevator cus- 
tomers if AA is equal to 1. If the variable JV is equal to 1, the number 
of customers (variable C) has reached a limit of 59, and no more 
customers will be permitted on the elevator. Line 1670 tests the 
amount of AA. If it is equal to 1, the program will branch to line 1690, 
where up to 5 more customers will be allowed onto the elevator. 

Lines 1710-1720 branches to line 1800 for the additional 
(YY+1 TO C) destinations. 
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Lines 1730-1760 continues the program if there are still cus- 
tomers who want to go to a certain floor. 

Lines 1770-1790 display the message telling the user how 
many customers got off of the elevator. Line 1785 branches to a 
GOSUB to see if the user might have received a tip. 

Lines 1800-1840 display the message telling the user how 
many customers stepped onto the elevator. 

Lines 1850-1930 select the number of floors and their titles. 
The program then branches back to line 690 for the printing of the 
titles. This loop begins at line 1920 and terminates at the next 
statement in line 650. 

Lines 1940-1990 print the total amount the user has collected 
and then branch to line 2500 to see if the user had made any 
unnecessary stops. If he did, the total number of unnecessary stops 
is multiplied by 20 and deducted from his or her total pay. Line 1970 
tests variables JV and GK. If neither conditions is met, the program 
resumes at line 800 (direction/floor entry). If either condition is 
met, the program branches to line 2300. 

Lines 2300-2420 continue or stop the program, print the user’s 
total earnings, and ask if he or she would care to earn more. 
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FAREWELL 


With a quick eye you'll follow the asterisk to the computer's 
selected location within a 6 by 5 matrix of letters. All you'll need to 
do is tell the computer what letter location it landed on. Get it right 
and you'll gain 1000 points; get it wrong and you'll lose the same 
amount. Land on a cobra location...and you're dead! Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 

wet FAREWELL ### 

NUMBER PLAYING (1-10)? 2 
THE 2 PLAYERS FIRST NAMES 
? MAC 

? SARAH 

ANY OF YOU NEED TO SEE 
THE INSTRUCTIONS? YES 
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START 


NUMBER OF 
PLAYERS 


PLAYERS’ 
NAMES 


4 
<) A 


PRINT 
INSTRUCTIONS 


SET 26 LETTERS 


ARRANGE RANDOMLY 


SET 4 BLANK SPS 


MOVE BLANK SPACES 


Y 


ANOTHER 
PLAYER 
SELECT COBRA POS 


STOP 


COMP SELECT 
POSITION 


USER MATCH 
POSITION 


| POINTS PLUS | 


Flowchart for Farewell. 
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N 
FINAL 
Y MESSAGE 
¢- 
Y 


S 
N 


USER 
STRUCK-DECEASED 


SELECT A POSITION 
BY LETTER ONLY?— 


PLAYER: 


READ CAREFULLY, IT COULD MEAN 

YOUR LIFE (OR THE GAME!!))... 

EACH PLAYER WILL SEE AND STUDY A 
MATRIX OF 6 BY 5 SQUARES OR 
POSITIONS, THESE WILL BE LABELED WITH 
THE LETTERS A THROUGH Z, WITH 

4 SPACES BLANK. TO PLAY: 

THE COMPUTER WILL SELECT 5 
POSITIONS AND PLACE COBRAS 

WITHIN EACH. THE COMPUTER WILL 
SHOW YOU WHERE 3 OF THE COBRAS ARE 
PRESS ENTER, PLEASE? 


NOW THE COMPUTER WILL SELECT A 
POSITION AND FLASH AN ASTERISK 
THERE. WHAT EACH PLAYER MUST DO 
IS ENTER THAT POSITION. IF YOU 

ARE CORRECT, YOU'LL GAIN 1000 
POINTS: IF INCORRECT, YOU'LL 
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LOSE 1000 POINTS. IF...YOU SELECT 

A POSITION WHERE A COBRA IS... 
YOU'RE OUT OF THE GAME, DEAD !! 
SELECTION OF POSITIONS WILL CON- 
TINUE FOR AS LONG AS EACH PLAYER 
WANTS, OR 21 POSITIONS HAVE BEEN 
OMITTED..... 

PRESS ENTER, TO START? 


Program Listing 


10 
15 
20 
rz) 
34 
a9 
40 
45 
BE] 
59 
60 
69 
70 
75 
80 
89 
90 
99 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
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REM PROGRAM TITLE: FAREWELL 

CLS: RANDOM 

PRINT"*#** FAREWELL %%%" 

PRINT 

INPUT"NUMBER PLAYING (1-100" 8 

IF A¢i OR Ad10 THEN 25 

PRINT"THE";A; "PLAYERS FIRST NAMES" 

FOR I=i TO A 

INPUT Q§$(1):NEXT 

PRINT: U=1 

PRINT"ANY OF YOU NEED TO SEE" 

INPUT"THE INSTRUCTIONS" ; 35 

IF kS4)"Y" AND X$(>"YES" THEN 210 

PRINT 

PRINT"READ CAREFULLY, IT COULD MEAN” 
PRINT" YOUR LIFE (OR THE GAME!!)..." 
PRINT"EACH PLAYER WILL SEE AND STUDY A" 
PRINT"MATRIX OF 6 BY 5 SQUARES OR” 
PRINT"POSITIONS. THESE WILL BE LABELED WITH" 
PRINT’THE LETTERS A THROUGH Z WITH" 
PRINT’4 SPACES BLANK, TO PLAY: " 
PRINT"THE COMPUTER WILL SELECT 5" 
PRINT'POSITIONS AND PLACE COBRAS"” 
PRINT"WITHIN EACH. THE COMPUTER WILL" 
PRINT"SHOW YOU WHERE 3 OF THE COBRAS ARE" 
INPUT" PRESS ENTER, PLEASE"; S$ 

PRINT: PRINT: PRINT@64,CHRS$(30) 

PRINT"NOW THE COMPUTER WILL SELECT A” 
PRINT"POSITION AND FLASH AN ASTERISK" 
PRINT" THERE, WHAT EACH PLAYER MUST DO” 
PRINT"IS ENTER THAT POSITION. IF YOU" 
PRINT"ARE CORRECT YOU'LL GAIN 1000" 
PRINT“POINTS; IF INCORRECT YOU'LL" 
PRINT"LOSE 1000 POINTS. IF...¥QU SELECT” 
PRINT"A POSITION WHERE A COBRA 1S..." 


185 
190 
195 
200 
205 
210 
215 
220 
225 
228 
230 
235 
240 
245 
250 
295 
260 
265 
270 
275 
280 
285 
290 
300 
305 
310 
315 
320 
325 
330 
335 
340 
3493 
330 
355 
360 
365 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
920 


PRINT"YOU'RE OUT OF THE GAME, 
PRINT"SELECTION OF POSITIONS WILL CON-" 
PRINT" TINUE FOR AS LONG AS EACH PLAYER" 
PRINT"WANTS, OR 21 POSITIONS HAVE BEEN" 


PRINT"OMITTED....." 


GOSUB 220:INPUT"PRESS ENTER, TO START"; X$ 


CLS:GOTO 300 
DIM L$(31),P(31),L(031) 
REM LETTERS:? CHR§$(23) 


IF SL()0 PRINT"ARRANGING LETTERS..." 


L=6$:T=s1:PZ=1000 
LS(T)sCHRS(L):LC]) =] 
IF I=27 THEN 255 
Tel+i1:Leb+1:GOTO 235 
GOTO 235 


REM SORT LETTERS RANDOMLY 


Jel 

N=RND(I-1) 

IF L(N)=0 THEN 265 

L$ (J) =CHRS(N+64) 

LCN) =0:JaJ+1 

IF J=I RETURN 

GOTO 265 

REM POSITIONS 
P=i0:T=1:PL=P+128: J=1! 
PCI) =P: L¢I)=I 
P=P+6:T=l4+i:J=J+! 

IF I=27 THEN 345 

IF J=? THEN 335 

GOTO 310 
P=PL:PL=PL+128:J=1i 
GOTO 310 

REM THE REMAINING 4 
Lo(l)2" "2 PCT) =P: LCI) sl 
P=P+6:lel+1:Jz=J+1 

IF Js? THEN 370 

GOTO 350 

REM MOVE THE 4 BLANKS 
Ts1l:J21:0=27 
N=RND(26) 

IF L(N)=0 THEN 380 
FS=<LS(N):LS(N)=L$(L) 
LS(L)=FS:L(N)=0 
L=L+1:1F L=31 THEN 410 
GOTO 380 

REM NOW PRINT LETTERS 
CLS:FOR I=1 TO 30 
PRINT@P(1),L$(1); :NEXT 
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425 REM FINAL GRAPHICS 

430 X=16 

435 FOR Y=0 TO 28 

440 SET(X,Y) : NEXT 

445 KeX+12 

430 IF X=100 THEN 460 

435 GOTO 435 

460 FOR X=146 TO 88 

465 SET(X,¥) :NEXT 

470 Ys¥-6.5 

480 IF Y=-3.5 THEN 490 

485 GOTO 460 

490 REM COBRA POSITIONS / PLAYER 

495 C=1:PRINT@832,"PLAYER: ";Q5(U); 

$00 N=RND(I-5) 

505 IF L(N)=0 OR E{(N)=100 THEN 500 

510 CB(C)=P(N): FS=LS(N) :CS(C)=FS 

S15 LS(N)=CHRS(42):L(N)=100 

520 IF C=5 THEN 560 ELSE IF C(=3 GOSUB 530 
$25 C=C+1:GOTO 500 

530 XX=0:REM DEFINE 3 (1 FOR COMPUTER) 
535 PRINT@P(N),L$(N);:FOR T=1 TO 100:NEXT T 
540 PRINT@P(N)," “;. FOR T=i TO S0:NEXT T 
545 PRINT@P(N) , FS; 

550 IF XX(=0 THEN XX=X%X4+1:GOTO 535 

555 RETURN 

560 REM COMPUTER SELECT (IF NOT DONE) 
965 SLeil:W=e%7+25 

575 IF SL)=22 THEN 1000 ELSE GOSUB 1200 
585 PRINT@W,"I WILL SELECT A POSITION" 
990 N=RND(L-1):GOSUB 1240 

595 IF L(N)=0 OR L(N) 2100 THEN 590 

600 FS=LS(N):1F SL=! THEN GOSUB 530 

605 C$=FS:NU=N:GOSUB 1300:GOSUB 1200 
610 PRINT@W,"SELECT A POSITION ";,Q8(U); 
615 PRINT@W+64,"BY LETTER ONLY"; 


620 INPUT L$ 
625 T=1 


635 IF L$=L$(1) THEN 665 

645 IsIe+l 

635 IF I)d=31 THEN 675 

660 GOTO 635 

665 N=I: F$=L$:GOSUB 530 

670 GOTO 400 

675 REM COBRA POSITION OR BLANK 
685 GOSUB 1200 

690 FOR I=1 TO § 

695 IF L&=C$(I) THEN 735 
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705 
715 
725 
738 
745 
735 
765 
770 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
835 
860 
865 
900 
905 
910 
915 
920 
925 
930 
1000 
1005 
1010 
1015 
1020 
10295 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1100 
1105 
4110 
1115 
1120 
1125 


NEXT 

PRINT@W,"YOU CANNOT SELECT A BLANK !!" 
GOSUB 1240:GOSUB 1200:GOTO 610 

REM COBRA 

PRINT@W,"YOUR DEAD ",;Q$(U);" !1E" 


PRINT@W+64,"THAT IS A COBRA POSITION !!" 


PRINT@W+128,"* PAREWELL **":GOSUB 1240 
ZZ21:GOSUB 1200:GOTO 1020 


GOSUB 1240:GOSUB 1200:IF L$(>C$ THEN 900 


PRINT@W, "CONGRATULATIONS “;QS(U);"..." 
PRINT@W+64,"YOU'VE JUST GAINED"; PZ; 
PRINT"POINTS !1!" 
REM POINTS / CONTINUE 
WCU) WCU) +PZ 
PRINT@P(NU)," "; 
PRINT@872,"TOTAL POINTS: ";W(U); 
GOSUB 1240:GOSUB 1200 

PRINT@W, "YOU NOW HAVE"; WCU); °POINTS..." 
PRINT@W+64,Q8(U);".. CONTINUE (Y/N)"; 
INPUT X$: IF X$="N" THEN 1020 
SL=eSL+1: LCNU) =O: LS(NU)s" * 

GOTO 575 
REM WRONG POSITION 
PRINT@W, "WRONG POSITION ";Q$(U) 
PRINT@W+64,"YOU ARE NOW MINUS"; PZ; 
PRINT"POINTS...":GOSUB 1240 
GOSUB 1200: W(U)=W(U)-PZ 
PRINT@872,"TOTAL POINTS: "“jWCU); 
GOTO 610 

REM FINAL / ANOTHER PLAYER 

GOSUB 1240:GOSUB 1200 

PRINT@W, "THAT'S IT ";Q$(U);". YOU'VE" 
PRINT@W+64,"REACHED THE LIMIT..." 
PRINT@W+128,"ENTER...PLEASE"; 

INPUT XK$:CLS 

IF ZZ=i1 THEN 2Z=0:GOTO 1040 

TCU) sWCU) 

UsU+1:IF UA THEN 1100 

PRINT Q$(U);" YOU ARE NEXT...” 
PRINT"KEY ENTER WHEN READY"; 

INPUT k$:CLS 

GOSUB 225:GOTO 300 

REM FINAL / SCORE RESULTS 

PRINT" PLAYERS AND POINTS: " 

FOR IT=1 TO A 

PRINT Q$(1);" TOTAL POINTS: ";TC(I) 
NEXT 

PRINT 
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1130 PRINT"PROGRAM TERMINATED....." 
1133 END 

1200 REM CLEAR PRINT AREA 

1210 PRINT@W,CHRS (30) 

1220 PRINT@W+64,CHR$(30) 

1230 RETURN 

1240 REM TIME DELAY 

1250 FOR Ti=1 TO 1200:NEXT 

1260 RETURN 

1300 REM FLASH SELECTION COURSE 
1305 FOR Ist TO NU 

1310 IF L$¢T)="*" OR LS(1)=" “ THEN 1330 
1313 PRINT@P(I),"%",; 

1320 FOR Ti=i TO 10:NEXT TI 

1325 PRINT@P(I),L§¢1); 

1330 NEXT 1 

1335 RETURN 


Variables and Strings 

A - Total number playing (1-10) 

U - Used for subscripted variables, strings, players and points 
L$Q) - Letters, asterisks, blanks 

PQ - Position, Print @ areas 

L(D - For deletion of letters after use 

SL - Number of letters used 

L - For letters 

PZ - For points 

J - General purpose, random count of letters, positions 
P - Positions, placed into subscripted variable P() 

PL - To advance variable P two lines, when J= 7 

N - Random selection variable 

F$ - Contents of L$d) 

Q$(U) — Current player 

C, CBI), C$) - Cobra positions, a total of five 

NU - Selection by computer for the location 

ZZ ~ Indicates user killed by cobra, no points 

W(U) - User’s total score 

TV) - User's final score if ZZ = 0 


Explanation of the Program Lines 


Lines 30-55 allow up to 10 players’ first names to be entered. 
Lines 60-210 display the instructions, if they are needed by any 
player. 
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Lines 220-250 place the 26 letters of the alphabet in the sub- 
scripted string L$, and set the subscripted variable L to the value of 
I for random selection. 

Lines 255-290 arrange the 26 letters randomly. 

Lines 300-340 set the 26 positions at which the letters will be 
placed (Print @ areas). 

Lines 345-365 set the remaining four spaces as blanks. 

Lines 370-405 replace the four blank spaces with randomly 
selected letters. Where these letters were, there are now blank 
spaces. 

Lines 410-420 print all letters and blank spaces. 

Lines 425-485 produce the final X,Y graphics for the 6 by 5 
matrix. 

Lines 490-525 select five cobra positions and flash three of the 
positions with asterisks. 

Lines 530-555 display the position selected by the computer 
and the selection given by the user. 

Lines 560-605 cause the computer to select a random position, 
IF SL<=21. The first selection is shown by a flashing asterisk. The 
program then branches to lines 1300-1335 where asterisks are 
flashed rapidly from top position to the position selected by the 
computer. 

Lines 610-1060 get the user’s selection and determine if the 
entry is a correct guess, ablank, or acobra position. If itis incorrect, 
the user will have 1000 points deducted from his or her score. If it is 
a blank, the user will be asked to try again. If it is a cobra, the user is 
automatically terminated. Correct entries that match the comput- 
ers, are worth 1000 points each. 

Lines 1100-1135 print all the players’ names and their scores. 

Lines 1200-1260 are routines used to clear Print @ areas for 
messages and to cause time delays for the reading of the messages. 
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INSOMNIA 

Having trouble sleeping? The computer will try and solve that 
problem through using its graphics. This program is not intended to 
help people with severe sleep disorders nor should it be used by 
people who hypnotize easily. Note that the IBM version of this 
program is included in Appendix A, and the Apple version in Ap- 
pendix B. 
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START 


MESSAGE 
BEFORE START 


MESSAGE 
END OF RUN 


Flowchart for Insomnia. 
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Program Listing 


10 
20 


30 
40 
50 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

400 

410 

420 

430 

440 

450 

460 

470 
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REM PROGRAM TITLE: INSOMNIA 
CLEAR 200:CLS 


PRINT" INSOMNIA" 

PRINT 

PRINT"SO YOU ARE HAVING PROBLEMS” 
PRINT’SLEEPING. JUST SIT BACK, KEEP” 
PRINT"YOUR EYES ON THE VIDEO AND” 
INPUT"PRESS ENTER"; X:CLS 

A=30: Wed 

PRINT: PRINT TAB(A}":"; 

PRINT TAB(A-1)":"j;TABCA+1)":"; 
1=RND(2) 

IF I=1 THEN 160 

IF Ad=60 THEN 170 

A=A+2:GOTO 180 

IF A¢=#i0 THEN 150 

A=A-2 

WeW+1:IF Weii THEN 350 

IF W=700 THEN 210 

GOTO 100 

IF W¢(=800 THEN 230 

GOTO 250 

PRINT 

W=W+1:GOTO 210 

PRINT"GETTING SLEEPY NOW 777?" 
FOR [=i TO W:NEXT 

IF W(=814 THEN 290 

GOTO 300 

PRINT: W=W+1:GOTO 270 

FOR X=0 TO 127 
SET(X,0):SET(X,47) :NEXT 

FOR X=1 TO 46 
SET(0,X):SET(127,X) : NEXT 

FOR I=1 TO W:NEXT:W=0:GOTO 400 
PRINT@990,; 

PRINT"KEEP EYES HERE"; 

GOSUB 600 

GOTO 190 

L=62:A=65:X=897:Y=A 
AS=STRINGS(L,L*2+47) 
PRINT@A,A$; 

PRINT@X,A$; 

AS=STRINGS(L,32) 

PRINT@A,A$; 

PRINT@X,A$; 

AzA¢64:X2X-64:1F A=5i3 THEN 530 


480 IF X=¥Y THEN $00 

490 GOTO 410 

S00 IF Wt=50 THEN 520 

910 GOSUB 600:GOTO 610 

920 W=W+1:1F W=25 GOSUB $80 

925 GOTO 400 

530 IF W)i THEN 480 

540 PRINT@A-45,; 

550 PRINT"STARE AT THIS LOCATION"; 
560 GOSUB 600 

570 GOTO 480 

580 PRINT@A-429, ; 

590 PRINT"NOW FOLLOW THE BARS"; 

600 FOR I=i TO 1000:NEXT: RETURN 

610 CLS 

620 PRINT“IF YOU ARE NOT GETTING SLEEPY" 
630 PRINT"BY NOW, YOU'RE A HOPELESS" 
640 PRINT"CASE fii" 

650 GOSUB 600:PRINT 

660 PRINT"THIS IS THE LAST PHASE OF" 
670 PRINT" INSOMNIA. IF IT FAILS, RUN" 
680 PRINT"THE ENTIRE PROGRAM ONCE" 
690 PRINT"AGAIN..... 7 

700 GOSUB 600:PRINT 

710 PRINT"KEEP YOUR EYES ON THE MOVING" 
720 PRINT"BLOCK, THINKING TO YOURSELF” 
730 PRINT"I AM GETTING SLEEPY....." 
740 INPUT"KEY ENTER"; X:W=0 

790 CiS:PS=STRINGS (2,191) :A$=STRING$ (2,32) 
760 Y=61:FOR X=15 TO 26 

770 SET(Y,X) : NEXT 

760 P=X+579 

790 GOSUB 1100 

800 FOR X=15 TO 26 

810 RESETC(Y,X):NEXT 

420 IF Z=1 THEN 930 

830 FOR X=15 TO 26 

840 SET(Y,X):Y=¥-1:NEXT 

850 GOSUB 1120 

860 P=P-6 

870 GOSUB 1100 

880 Y=61 

890 FOR X=15 TO 26 

900 RESET(Y,X):Y¥=s¥-1:NEXT 

910 GOSUB 1120 

920 Z=1:GOTO 760 

930 GOSUB 11206 

940 FOR X=15 TO 26 
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950 SET(Y,X):YsY¥el: NEXT 
960 P=P+5:PRINT@P,PS; 
970 Y=éi1:FOR X=15 TO 26 
980 RESET(Y,X) 

990 Y=Y¥+i:NEXT 

1000 GOSUB 1120 

1010 W=W+l 

1020 IF W=5 THEN 1050 
1030 IF W=50 THEN 1150 
1040 Z=0:GOTO 760 

1050 FOR X=46 TO 75 
1060 SET(X,14):SET(X,31):NEXT 
1070 FOR X=14 TO 31 
1080 SET(46,%):SET(75,X) :NEXT 
1090 GOTO 1030 

1100 PRINT@P,P$; 

1110 RETURN 

1120 PRINT@P,A$; 

1130 RETURN 

1150 REM END OF PROGRAM 
1160 GOTO 1160 


Variables and Strings 


A - Tab locations for first phase 

W ~ General purpose counter 

I - A random amount, also for a time pause 

L - For putting character contents into a string 

A,X - Print @ locations for second phase of program 
Y - Contents of A for reset of graphics 

A$ - Characters for graphics 

P§, A$ - Characters for graphics for third phase of program 
Y - For set/reset locations in third phase 

P - Print @ locations (for block) 

Z - 0/1 variable for graphics 


Explanation of the Program Lines 


Lines 10-80 clear an amount of memory for graphic strings and 
display a short message before beginning the program. 

Lines 90-290 form phase 1 of the program. They print three 
colons at a random tab location. These will move up in a snake like 
fashion. 

Lines 300-590 form phase 2 of the program. Here, two bars 
move from the outside to the inside of a square, and then recycle. 

Lines 610-1090 form the final phase of the program. A pen- 
dulum is set to swinging. 


262 


YOUR ENTRY WAS 
INCORRECT 


RAINY DAZE 


This program is designed for bad weather days, to make them 
worse! All you'll need do is maintain good eye contact with the 
video and follow the numbers. When you see a number that is out of 
order, press the clear key. That’s all there is to it. Oh yes, I almost 
forgot, the speed at which the numbers are printed across the 
screen gets faster and faster with each new line... Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


INSTRUCTIONS? YES 
PLAYERS? 2 

THE 2 PLAYER'S INITIALS 
? DF. 

? HJ. 


THIS PROGRAM IS DESIGNED TO 
HELP YOU THROUGH YOUR WORST 
DAYS BY MAKING THEM WORSE !! 
ACTUALLY THIS PROGRAM WILL 
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START 


NUMBER OF 
PLAYERS 


INITIALS OF 
PLAYERS 


INSTRUCTIONS 


INITIALIZE 
VARIABLES 


3 Y 
CHANGE 
DIGIT 


N 


POINTS + 
y Y | POINTS | 


4 


Flowchart for Rainy Daze. 


264 


TEST YOUR ABILITY TO FOLLOW 
NUMBERS IN SEQUENCE. 

THE NUMERALS 1 THROUGH 660 WILL 
RACE ACROSS AND FILL THE VIDEO. 
WHEN A NUMERAL APPEARS THAT IS 
NOT SUPPOSED TO BE THERE, HOLD 
THE CLEAR KEY FOR A SHORT 
PERIOD UNTIL THAT NUMERAL IS 
BLOCKED OUT. 


PRESS ENTER? 


POINTS WILL BE GIVEN ON HOW 
MANY OUT-OF-SEQUENCE NUMERALS 
YOU HAVE DETECTED AT THE 

END OF THE COUNT. 

REMEMBER, YOU MUST HAVE GOOD 
EYE POINT CONTACT WITH THE 
VIDEO... 


D.F. YOU WILL NOW PLAY. 
PRESS ENTER, PLEASE? 


Program Listing 
19 REM PROGRAM TITLE: RAINY DAZE 
CLS 


30 INPUT" INSTRUCTIONS"; A$ 

40 INPUT"PLAYERS";P:IF P=0 THEN 40 

SO PRINT"THE";P; “PLAYERS INITIALS" 

60 IF P)=i1f1 THEN 20 ELSE FOR I=1 TO P 

70 INPUT N$(1):NEXT 

80 IF AS<)"Y" AND A$()"YES" THEN 340 

90 REM INSTRUCTIONS 

100 PRINT’THIS PROGRAM IS DESIGNED TO" 

110 PRINT"HELP YOU THROUGH YOUR WORST" 

120 PRINT"DAYS, BY MAKING THEM WORSE !!" 
130 PRINT"ACTUALLY THIS PROGRAM WILL" 

140 PRINT"TEST YOUR ABILITY TO FOLLOW" 

130 PRINT"NUMBERS IN SEQUENCE.“ 

160 PRINT"THE NUMERALS 1 THROUGH 660 WILL" 
170 PRINT"RACE ACROSS AND FILL THE VIDEO." 
180 PRINT"WHEN A NUMERAL APPEARS THAT 18" 
i190 PRINT"NOT SUPPOSED TO BE THERE, HOLD" 
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200 PRINT"THE CLEAR KEY FOR A SHORT" 
210 PRINT"PERIOD UNTIL THAT NUMERAL IS" 
220 PRINT"BLOCKED OUT." 

240 PRINT 

250 INPUT"PRESS ENTER"; X 

260 CLS 

270 PRINT" POINTS WILL BE GIVEN ON How" 
280 PRINT"MANY OUT-~OF-SEQUENCE NUMERALS" 
290 PRINT"YOU HAVE DETECTED AT THE" 
300 PRINT"END OF THE COUNT." 

310 PRINT’ REMEMBER, YOU MUST HAVE GOOD” 
320 PRINT"EYE POINT CONTACT WITH THE" 
330 PRINT"VIDEO...": PRINT 

340 I=] 

350 IF P=i THEN 390 

3960 PRINT N$(1);" YOU WILL NOW PLAY. " 
370 INPUT” PRESS KEY ENTER, PLEASE";X 
380 GOTO 410 

390 PRINT“WHEN READY, ";N$(P);" PRESS" 
400 INPUT"THE ENTER KEY";X 

410 CLS: RANDOM: N=0:Ni=0:TT=250 

420 Az0:M=55:L=64:G=0 

430 K=PEEK(14440):GOTO 550 

440 PRINT@A,N; 

450 FOR T=1 TO TT+TT 

460 NEXT: A=A+5 

470 IF A>=M THEN 490 

480 GOTO 430 

490 A=L:M=M+64:L=L4+64:TT=TT-25:G=0 

500 IF L)=1023 THEN 520 

505 IF TT(=100 THEN TT=100 

510 GOTO 430 

520 FOR T=1 TO 1000:NEXT 

5330 CLS 

940 GOTO 420 

550 REM CHANGE OR LEAVE 

560 IF K=2 THEN NJ=1:GOTO 690 

570 NeN+1 

560 Ni=N141:1F Ni(=2 THEN 610 

$90 J=INT(RND(0)%2):1F G=l THEN J=0:N=N1 
600 IF Jsi THEN N=N+i:G=1 

610 IF K=0 AND ABS(N-N1)()0 THEN Y=Y+1 
420 IF NJ=1 THEN NdJ=0:GOTO 640 

630 IF Nid=661 THEN 800 ELSE GOTO 440 
640 Ni=Ni+i 

650 PRINT@A-5 ,STRING§S (5,143); 

660 REM PAUSE BEFORE CONT. 

670 FOR T=i1 TO 100:NEXT:K=0 
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680 GOTO 440 

690 IF ABS(N-Ni)=0 THEN 710 

700 Y=¥-1:GOTO 720 

710 Y=¥el 

720 ALsPEEK(A-6+15360) 

730 A2Z=PEEK(A-8+15360) 

940 IF Ail=143 AND A2=143 THEN 760 

750 GOTO 620 

760 CLS: Y=V¥+2 

770 PRINT“QUIT HOLDING DOWN THE CLEAR” 
780 PRINT’KEY !! LET GO YOU DINGY !! 
790 FOR T=i TO 1200:NEXT:CLS:GOTO 620 
800 REM PLAYER ADVANCE 

B10 YY(I)=¥:¥=0:CL5 

820 T=I+l1 

830 IF I)P THEN Ni=Ni-1:GOTO 850 

840 GOTO 369 

850 REM FINAL 

860 PRINT"PLAYERS AND THEIR POINTS" 
870 PRINT"ARE AS FOLLOWS: " 

860 FOR I=1 TO P 

890 PRINT N$(1I);," IDENTIFIED ", 

900 IF YY¥(I)=0 PRINT“ALL NUMERALS.":GOTO 930 
910 IF YYCI) <0 Y¥CT)=-¥Y¥(1) 

920 PRINT Ni-Y¥(1I); "NUMERALS." 

930 NEXT 

940 PRINT 

950 PRINT"END OF PROGRAN. " 

960 END 


Variables and Strings 

P - Number of players 

N$() - Player's initials 

I - Current player 

N - Current digit 

N1 - Counter to change number 

TT - Time loop to cause a delay before the next number is printed 

A - Print @ locations for digits 

ML - Largest Print @ areas (limits) 

G - 0/1 for digit change 

K - Peek location for key closure 

J - Digit changed to 

Y - Correct / incorrect entries 

A1,A2 - For test to determine whether or not the user is constantly 
holding down the clear key 

YY(D - User's total points 
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Explanation of the Program Lines 


Lines 10-330 accept the number of players and their initials and 
display the general instructions. 

Lines 340-400 determine the current player. 

Lines 410-420 initialize the variables. 

Line 430 is used for user key closure. 

Lines 440-510 print the digits, changed or unchanged, test for a 
full video, and decrease the time loop. 

Lines 520-540 create a pause before clearing the video. 

Lines 550-680 leave current digit as it is or change it. If J is 
equal to 1 and G is equal to 0 (zero), the current digit will be 
changed. 

Lines 690-790 increase the user’s score if K is equal to 2 (clear 
key). They also test to see if the user is constantly holding down the 
clear key. 

Lines 800-960 advance to next player or terminate the program 
and print the player’s names and scores. 
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Games for Parties 
or Friendly Get-Togethers 


Amount on Board is similar to roulette but uses squares rather 
than a wheel. Here’s a way to experience the thrill of gambling at 
your own party. 

Lap-the-Track is another betting game. Whose bet will pay 
off in the great spot race? 

Partners challenges you to guess a word based on clues your 
partner gives you. 

From Point A to Point B is a different kind of maze game. 
You have to enter all your instructions before there is any move- 
ment at all. 

Injection makes you responsible for killing the bacteria that 
are multiplying out of control. 

Intercept commissions you to defend the domed city from 
alien intruders. Be careful. The high command disapproves when 
you kill friendly intruders. 
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LOOKS LIKE 
$500.00 


AMOUNT ON BOARD 

This game will allow you and up to 9 other players to place an 
amount of money on a square. These numbers will range from 0-9. 
Your initials will be placed on the numeral you have selected. If you 
plan to use real money, the computer will keep excellent tabs on all 
amounts. The computer also selects each number randomly, so it 
won't cheat anyone. 


Sample Run 


* AMOUNT ON BOARD * 
INSTRUCTIONS BEFORE PLAY? YES 


THIS IS THE FIRST PROGRAM 

OF SIX THAT IS MADE FOR 
PARTIES OR WHEN FRIENDS 
GATHER LOOKING FOR SOMETHING 
DIFFERENT TO DO. THIS GAME 

IS SIMILAR TO ROULETTE, BUT 
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START 


INSTRUCTIONS 


NUMBER OF 
PLAYERS 


INITIALS OF 
PLAYERS 


iC are 
| GET DIGIT 


FROM PLAYER 


AMOUNT TO 
PLACE ON BOARD 


GRAPHICS 
PLAYING BOARD 


START/ oor | 


DIGIT ROTATION 


PRINT WINNER 
AND AMOUNT 


Flowchart for Amount on Board. 
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WILL USE NO WHEEL. INSTEAD 
10 SQUARES (FROM 0-9) WILL 
BE USED. AT THE OPTION OF 
THE PLAYERS, REAL MONEY 
CAN BE USED. EACH PLAYER 
(UP TO 10) WILL ENTER A 


PRESS ENTER? 


NUMBER FROM 0-9 AND PLACE ANY 
BET (WITHIN REASON). WHAT- 
EVER THE COMPUTER LANDS ON 
DETERMINES THE WINNER. A 
PLAYER CAN DROP OUT OR BE 
ADDED DURING PLAY, BEFORE 
ANY BETS ARE PLACED. 


NUMBER OF PLAYERS? 2 


INITIALS OF THE 2 PLAYERS 
(WITHOUT SEPARATING PERIODS) 

? AD 

2 EG 

YOUR NUMBER SELECTION AD 22. 
PLACE WHAT AMOUNT ON BOARD? 10 


YOUR NUMBER SELECTION FG? 6 
PLACE WHAT AMOUNT ON BOARD? 10 
AMOUNT ON BOARD 
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Program Listing 


i100 REM PROGRAM TITLE: AMOUNT ON BOARD 
110 CLEAR 200:RANDOM 


120 CLS: M$="$S8,888. #8" -U=576 

130 PRINT"* AMOUNT ON BOARD *" 

140 PRINT 

130 INPUT" INSTRUCT BEFORE PLAY" ;X$ 

160 IF X$="N" OR X$="NO" THEN 390 

170 PRINT 

{€0 PRINT"THIS 18 THE FIRST PROGRAM" 
190 PRINT"OF SIX THAT ARE MADE FOR" 

200 PRINT" PARTIES OR WHEN FRIENDS" 

210 PRINT"GATHER LOOKING FOR SOMETHING" 
220 PRINT"DIFFERENT TO DO. THIS GAME" 
230 PRINT" IS SIMILAR TO ROULETTE, BUT” 
240 PRINT"WILL USE NO WHEEL. INSTEAD" 
250 PRINT"10 SQUARES (FROM 0~9) WILL” 
260 PRINT" BE USED. AT THE OPTION OF" 
270 PRINT" THE PLAYERS, REAL MONEY" 

280 PRINT"CAN BE USED. EACH PLAYER" 

290 PRINT"(UP TO 10) WILL ENTER A" 

300 PRINT 

$iQ INPUT"PRESS ENTER”; X$:CLS 

320 PRINT" NUMBER FROM 0-9 AND PLACE ANY" 
330 PRINT"BET (WITHIN REASON). WHAT-" 
340 PRINT’ EVER THE COMPUTER LANDS ON" 
350 PRINT" DETERMINES THE WINNER, A” 

360 PRINT" PLAYER CAN DROP OUT OR BE" 
$70 PRINT"ADDED, DURING PLAY, BEFORE” 
380 PRINT"ANY BETS ARE PLACED.": PRINT 
390 INPUT’NUMBER OF PLAYERS";P 

400 IF P<t OR P10 THEN 390 

410 PRINT"'INITIALS OF THE"; P; "PLAYERS" 
415 PRINT" (WITHOUT SEPARATING PERIODS)" 
420 FOR is0 TO P-1: INPUT I$(1I) 

430 NEXT 

440 REM GET NUMBER SELECT AND AMOUNT 
430 FOR I=0 TO 9:N(I)sI:P(1)=I:X¢(1)20:NEXT 
460 N¢0)=-99:T=0 

970 PRINT’ YOUR NUMBER SELECTION “;18¢1); 
480 INPUT N:IF NiO OR N)9 THEN 470 

490 IF N(N)=0 THEN 510 

495 IF N=0 THEN X(1)=N(0):GOTO 530 

500 X(I)=N.GOTO 530 

510 PRINT"NUMBEAR ALREADY ENTERED." 

920 PRINT.GOTO 470 

530 IF N¢()}0 THEN N(N)=0 
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540 
350 
960 
570 
380 
590 
600 
610 
620 
630 
640 
630 
660 


670 
640 


670 
700 
710 
720 
730 
740 
730 
760 
7790 
780 
790 
800 
810 
820 
830 
840 
350 
866 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 
990 


PRINT’ PLACE WHAT AMOUNT ON BOARD"; 


INPUT A(1) 


IF ACI)<4 OR AC(1T))100 THEN 580 


COTO 600 


PRINT"KEEP THE BET WITHIN REASON. ” 


GOTO 540 

T=I+i 

IF I)P-1 THEN 630 
CLS:GOTO 470 

REM TALLY AMOUNTS 

T=0 

A=A+A(T) 

I=I+1:IF I)P-1 THEN 680 


GOTO 650 
REM INCREASE WITH LEFTOVER 


A=A+M 

M=A 

A=0 

CLS:PRINT CHR$(23) 

REM PLAYING BOARD 
BS=STRINGS(21,143) 
PRINT@4,8$;:PRINT@196,BS; 
PRINT@388,BS, 

J=2d:JA=s40. JB=J+64 
PRINT@J,CHRS (191); 

IF J)=JA THEN 810 
Jsd+8.GOTQ 780 

JsGB- JA=JA+64: JB=JB+64 
IF JA)=424 THEN 840 
GOTO 780 

REM LOCATIONS OF DIGITS 
L=70 

FOR f=0 TO 4:Lit)elL 
L=L+8:NEXT 

L=262 

FOR [#5 TO 9:L¢1)eL 
L=L+8:NEXT:GOSUB 1600 
TM=-10:PRINT@448,,; 
PRINT"AMOUNT ON BOARD"; 
PRINT USING M$(M 

REM START THE ROUND 
NI=RND( 15) 

I=0 

PRINT@LiI),PC1); 

IF Gai AND I=V THEN 1140 
IF I}=1 THEN 1040 


1000 FOR Y=1 TO TM: NEXT 
1020 L=I+1 
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1020 IF I=10 THEN 1040 

1030 GOTO 970 

1040 PRINT@L(I-1)," "| 

1050 IF [I=10 THEN 960 

1060 TM=TM+1.5 

1070 IF TM>=80 THEN 1090 

1080 GOTO 1000 

1090 REM GET A NUMBER 

1100 IF Geil THEN 1080 

1110 Gs! 

1120 V=INTCRND(0)*10) 

1130 GOTO 1080 

1140 REM WIN NUMBER 

fido IF T=0 PRINT@L(9),"  ";:GOTO 1155 
4150 PRINT@L(V~1)," "; 

1155 FOR [=0 TO 9? 

1160 IF X(1)¢)V THEN NEXT-GOTO 1230 
1165 I$s1$(1).1F I1$="" THEN 1230 

4170 PRINT@U,; 

1180 PRINT"THE WINNER ";1$ 

1190 PRINT"WINNING A TOTAL OF "; 

1200 PRINT USING M$;M 

1210 WCidsWCI74+M-M=0 

1220 GOTO 1270 

1230 PRINT@U, ; 

1240 PRINT’SORRY, NO WINNER..." 

1250 PRINT"THE MONEY STAYS IN THE" 

1260 PRINT"POT UNTIL WON." 

1270 REM RECYCLE 

1280 PRINT: INPUT"PRESS ENTER, PLEASE"; 1$ 
i290 CLS:G=0 

1300 PRINT"STOP OR CONTINUE PLAY (S/C)"; 
13910 INPUT I$ 

1320 IF I$="5" THEN 1530 

1330 PRINT"ANY PLAYER WANT TO QUIT (Y/N)"; 
1340 INPUT 15 

1350 IF I$="N" THEN 1445 

1360 INPUT"YOUR INITIALS, PLEASE"; 1$ 
1370 FOR I=0 TO P-1 

1380 IF I6(1)=I$ THEN 1400 

1390 NEXT: GOTO 1445 

1400 18¢1)="".REM SHUFFLE NAMES/AMOUNTS 
1410 FOR T=0 TO P-1 

1419 IF 16(T)="" THEN EX=1 

1420 IF EX=0 THEN TS(T)=I$¢(T) :T(T)=W(T) :GOTO 1430 
1423 Te(T)=1$(T+1):TCT)=W(T+1) 

1430 NEXT: EX=0.FOR T=0 TO P-1 

1439 [9¢T)=T$(T) :-W(T)=T(T) 
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1440 NEXT: P=P~1 

1445 IF P>=10 THEN i510 

1450 PRINT“ANY NEW PLAYERS (Y/N)",; 
1460 INPUT I$ 

1470 IF 1¢="N" THEN 1510 

1480 REM INITIALS 

1490 PRINT’YOUR INITIALS (WITHOUT PERIODS)", 
1500 INPUT I9(P):P=P+i 

1910 CLS 

1920 GOTO 440 

4530 REM ALL CHICKENED OUT 

1940 CLS 

1590 PRINT"PLAYERS AND AMOUNTS (you" 
1560 PRINT"SHOULD HAVE ON YOU /!)" 
1570 FOR I=0 TO P-1: PRINT [8¢1);°°"; 
1580 PRINT USING M$;W(I):NEXT 

1590 PRINT: PRINT"END ..": END 

1600 REM PRINT INITIALS AT LOCATION 
1610 FOR I=0 TO 9% 

1620 IF X(I)=0 THEN 1650 

1630 IF X¢1)=-99 THEN 1660 

1640 PRINT@L(X(1))+64,18(1), 

1650 NEXT: RETURN 

1660 PRINT@L(0)+64,15(1),; 

1670 X(T)=0:GOTO 1650 


Variables and Strings 


M$ - Print of dollar amount 

P - Number of players 

I$d) - Player’s initials 

N(1) - User’s number selection 

P(]) - Digits 0-9 

X(1) - User number selected 

Ad) - User entered amount 

A - Amount on board 

M - Any leftover amount, if not won 

B$ - For playing board (STRING$) 

J,JA,JB - Locations for Print @ for playing board 
L,L(D - Location of the digits 

TM - Pause between the printing of the digits 
G,V - Computer select of digit 

W() - User’s winnings 


Explanation of the Program Lines 
Lines 100-380 display the general instructions. 
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Lines 390-400 accept the number of players. 

Lines 410-430 accept the initials of the players, without 
separating periods. This is required so that the users’ initials can be 
printed in the numeral blocks they have selected. If the user adds 
the separating periods, part of the graphics will be lost. 

Lines 440-460 set subscripted variables to the numerals 1 
through 9. 

Lines 470-530 allow each user to input a number between 0 and 
9. 

Lines 540-620 allow each user to input an amount of money to 
place on board (any amount within reason). 

Lines 630-710 compile all amounts to determine the total on 
board. The variable M will be an amount that is carried over from a 
play nobody won. 

Lines 720-830 display the playing board. 

Lines 840-900 determine the locations of the digits 0-9. Each 
location selected by a user will show his or her initials. 

Lines 910-1080 form the main part of the program. All digits 
are flashed from left to right until TM>= 80. Then the computer 
stops at its preselected location. 

Lines 1090-1130 select a random number. 

Lines 1140-1220 print the winner, if there is one, and the 
amount he or she has won. 

Lines 1230-1280 are used when there is no winner. The 
amount on board will remain in the pot until it is won (variable M). 

Lines 1300-1320 allow any player to terminate the program. 

Lines 1330-1440 allow any player to drop out of the game if he 
or she so wishes. If a player does drop out, the names will be re- 
organized so they do not include the name of the player that 
dropped out. 

Lines 1445-1500 allow a new player to join the game, if there 
are less than 10 players. 

Lines 1510-1520 recycle the program with the new number 
selections and bets. 

Lines 1530-1590 display a message when all players have quit 
message and also show the amount each has won. 

Lines 1600-1670 form a subroutine that prints the initials of the 
players at the numeral they have selected. 
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AND IT’S SPOT ONE PULLING AWAY 
FROM SPOT THREE WITH SPOT FOUR 

RUNNING CLOSE TO SPOT TWO BUT 
CLOSER TO SPOT THREE WHICH IS 
PULLING UP ON SPOT ONE 


LAP-THE-TRACK 


You and 14 others can bet on one of four spots that will dash across 
your video in a race that will last 10 laps. There are programs of 
horse races, dog races, etc., so, you could call this a spot race. After 
selecting a lane and placing your bet, the four spots will begin 
darting across the video. The winner, naturally, will be the spot that 
completes the 10 laps first. Each spot will have an equal opportunity 
to win, dependent upon the random function. All monies are divided 
equally should more than one person bet on the winning lane. Note 
that the IBM version of this program is included in Appendix A, and 
the Apple version in Appendix B. 


Sample Run 

-t-: LAP-THE-TRACK :-:- 
INSTRUCTIONS? YES 

UP TO FIFTEEN PEOPLE BET ON 

THE FOUR MOVING SPOTS THAT WILL 
BE IN A FAST RACE TO THE FINISH. 

A COMPLETE RACE CONSISTS OF 

10 LAPS. EACH PLAYER WILL BE 
ABLE TO CHOOSE A LANE (1-4) 
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START 


INSTRUCTIONS 


NUMBER 
PLAYING 


INITIALS OF 
PLAYERS 


LANE SELECT 
AND AMOUNTS 


GRAPHICS 
OF TRACK 


MESSAGES 


PLACE AMOUNTS 
ON SELECT LANE 


BEGIN RACE 


CONTINUE RACE 


Y 


OUTPUT WINNERS’ 
AMOUNTS 


RACE AGAIN STOP} 


Flowchart for Lap-the-Track. 
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- LANE 1:1 
- LANE 2:2 
~ LANE 3:2 
~ LANE 4:1 


fi LANE 3.....$4.00 
@ LANE 4.....$2.00 


AND HOW MUCH THEY WANT TO BET 
ON THE CHOSEN LANE. IF THERE 
ARE NO WINNERS, THE COMPUTER 
WILL PLACE THE MONEY ON A 

LANE OF ITS CHOICE IN THE 


PRESS ENTER? 


NEXT RACE. IF THE COMPUTER'S SPOT 
(LANE) HAPPENS TO WIN, IT WILL 

NOT TAKE THE MONEY, IT WILL 

JUST BET ON ANOTHER LANE. 

SO NO MATTER HOW YOU SLICE IT, 
SOMEONE IS BOUND TO WIN (SO 

YOU CAN USE REAL MONEY IN 

THIS GAME TOO). 

HOW MANY TO PLAY? 4 


INITIALS, PLEASE? A.A. 
? BB. 
? CC. 
? D.D. 
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YOU WILL NOW SELECT A LANE. 
A.A. LANE NUMBER? 1. 
BET WHAT AMOUNT? 2. 


B.B. LANE NUMBER? 4. 
BET WHAT AMOUNT? 2 


C.C. LANE NUMBER? 3. 
BET WHAT AMOUNT? 4 


D.D. LANE NUMBER? 2 
BET WHAT AMOUNT? 5, 


IF MORE THAN ONE PLAYER WINS 
(SELECTION OF THE SAME LANE) 
ALL MONEY WILL BE DIVIDED AS 
EQUALLY AS POSSIBLE. 


PRESS ENTER TO START THE RACE? 
Program Listing 


10 REM PROGRAM TITLE: LAP-THE~TRACK 

20 CLEAR 200:RANDOM: CLS 

30 PRINT"-:-: LAP-THE-TRACK .-:-" 

40 PRINT: DIM A$(15),AC15),LAC15),TC15) 

50 INPUT" INSTRUCTIONS" ;A$ 

60 IF A$Sc<7"¥" AND AS$<)"YES" THEN 300 

70 FRINT"UP TO FIFTEEN PEGPLE BET ON" 

80 PRINT"THE FOUR MOVING SPOTS THAT WILL" 
90 PRINT'BE IN A FAST RACE TO THE FINISH." 
100 PRINT'A COMPLETE RACE CONSISTS OF" 

110 PRINT"10 LAPS. EACH FLAYER WILL BE" 
120 PRINT"ABLE TO CHOOSE A LANE (1-4)" 

130 PRINT'AND HGW MUCH THEY WANT TO BET" 
140 PRINT'ON THE CHOSEN LANE. IF THERE" 
450 PRINT"ARE NO WINNERS, THE COMPUTER" 
160 PRiNT"WILL PLACE THE MONEY ON A” 

i7G PRINT“LANE OF ITS CHOICE IN THE" 

160 PRINT. INPUT"KEY ENTER"; A$ 

190 CLS 
200 PRINT"NEXT RACE. IF THE COMPUTERS SPOT" 
210 PRINT" (LANE) HAPPENS TO WIN, IT WILL" 
220 PRINT"NOT TAKE THE MONEY, IT WILL" 
230 PRINT’JUST BET ON ANOTHER LANE " 


282 


240 
2590 
260 
270 
300 
310 
320 
330 
340 
356 
36G 
370 
380 
370 
400 
9410 
420 
430 
940 
456 
460 
470 
9480 
490 
900 
910 
320 
530 
540 
356 
960 
$70 
580 
985 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 


PRINT"SO NO MATTER HOW YOU SLICE IT," 


PRINT'SOMEONE IS BOUND TO WIN (SO0" 
PRINT" YQU CAN USE REAL MONEY IN" 
PRINT"THiIS GAME TOO. 3" 

PRINT 

iNPUT"HOW MANY TO PLAY"; A 

IF A¢i OR Ad15 THEN 320 

PRINT" INITIALS, PLEASE", 

FOR I=i TO A 

INPUT A$(CI}:>NEKT 

PRINT 

PRINT" YOU WILL NOW SELECT A LANE." 
T=1 

PRINT A$(1I),' LANE NUMBER", 

INPUT LACT) 

IF LACId¢1 GR LACI)>4 THEN 390 
PRINT" BET WHAT AMOUNT"; 

INPUT ACI) 

Tsi+1 

IF IDA THEN 480 

PRINT 

GOTO 390 

CLS:GOSUB 1300:.IF ZZ=i THEN 330 
PRINT" IF MORE THAN ONE PLAYER WINS" 
PRINT" (SELECTION OF THE SAME LANE)" 
PRINT"ALL MONEY WILL BE DIVIDED AS" 
PRINT" EQUALLY AS POSSIBLE." 
PRINT: IF CB=1 THEN 960 


PRINT" PRESS ENTER TO START THE RACE"; 


INPUT A$:CLS 

REM OUTER OF TRACK 

FOR K=0 TO 127 
SET(X,0):SETCX,47) 
SET(X,15):SET(X,31):NEXT 

FOR &=1 TO 15 
SETCO,X):SET(127,X%):NEXT 

FOR X=31 TO 47 
SETCO,X):SET(127,X%) :NEX&T 

REM SPOT POSITIONS / MESSAGES 
GOSUB 1200:GOSUB 1410:L=1:1=384 
L(L) 21 :R¢(L)e=I:PC(L)sI-300:LPC(L)=0 
T=I+64:1F L>=4 THEN 680 
Le=L+1:GOTO 690 

FOR I=1 TO 4 
PRINT@L(1I),CHR$(143); :NEXT 

REM START RACE 
LP=0:X$=CHR$(143):PK=L(1)4+63 
IT=RND(4) :M=ABS( 1-5) 
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730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
B60 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
970 
980 
985 
990 
1000 
1010 
1020 
1030 
1040 
1200 
1210 
1220 
1230 
1240 
1230 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
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PRINT@L(13," "; 

IF ABS(L(I)-RC¢I))>=50 THEN 1000 
L¢I)=#=LCI0+RND(14) 
PRINT@L(1),X$; 

IF M+1¢)>1 AND M+1¢)95 THEN 790 
GOTO 820 

PRINT@L(M+1)," "; 
L(M+i?=L¢(M+1)+RND( 4) 
PRINT@L(M+1),X$j; 

IF M-1¢>1 AND M-14)20 THEN 6840 
GOTO 870 

PRINT@L(M-1)," "; 
L(M-1)=L(M-1)+RND(4) 
PRINT@L(M-1),X$, 

IF M+2¢>5 AND M+2¢>6 THEN 890 
GOTG 720 

PRINT@L(OM+2)," "; 
L(M+2)=L(M+2)+RNDi4> 
PRINT@L(M+4+2),%5, 

PRINT@L(M)," "; 
L(M)=L(M)+RND(4) 

PRINT@L(M) ,&$; 

GOTO 720 

CB=0:PRINT"THE COMPUTER WILL FLACE" 
PRINT’THE AMOUNT OF",USING AAS ;AM 
RF=RND(4).PRINT"ON LANE";RF;" 
MN(RF)=MN(RF)+AM: AM=0 

GOTO $40 

PRINT@L¢(I)," "; 

L(I)=#RCI> 
LP(I)=LP(I)41:PRINT@PC(I),LPCI); 
IF LP(I))=#10 THEN 1500 

GOTO 720 

PRINT@66,"LAPS ~ LANE 1:"; 
PRINT@130,"LAPS - LANE 2:"; 
PRINT@194,"LAPS - LANE 3:"; 
PRINT@258,"LAPS - LANE 4:",; 
REM AMOUNTS PER LANE 
PRINT@706, "LANE 1.....%; 
PRINT@770,"LANE 2....."; 
PRINT@834,"LANE 3..... wy 
PRINT@898,"LANE 4.....%; 
RETURN 

REM AMOUNTS ON LANES 

T=i1 

FOR I=1 TO A 

IF LAC I)=T THEN 1350 
NEXT:GOTO 1370 


1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1910 
1520 
1330 
1540 
1550 
1360 
1370 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1725 
1730 
1740 
17350 
1760 
1770 
1780 
1790 
19800 
1810 
1820 
1830 


MN(T) =MN(T) +ACT) 

GOTO 1340 

T=T+1 

IF T>)=5 THEN 1400 

GOTO 1320 

RETURN 

REM PRINT AMOUNTS 
AAS="SS8#, 884. #4" 
T=1:FF=718 
PRINT@FF,USING AA$;MN(I); 
TsI+1:FFsFF+64 

IF [)=5 RETURN 

GOTO 1440 

REM FINISH 

WW=1 
PRINT@P(1)+6,"WINNER"; 
FOR TU=si TO 200:NEXT 
PRINT@P(1)+6,STRING$(6,32); 
FOR TU=1 TO 50:NEXT 

IF WW)=6 THEN 1580 
WW=WW+1:GOTO 1520 

REM PLAYER LANE SELECT 
WW=0 

FOR T=i TO A 

IF LACT)=I THEN 1630 
NEXT: GOTO 1650 
WW=WW+1 > TCWW)=T 

GOTO 1620 

FOR T=1 TO 4: AM=AM+MN(I):MNCI)=0 
NEXT: IF WW=0 THEN 1760 
PRINT@735,"WINNER(S):"; 
WX=799 

FOR I=1 TO ww 

PRINT@WX ,AS$(T(I)); 

IF WW)1 PRINT","; 
WX=WX+5 :NEXT 

IF WW=1 THEN 1790 


PRINT@863,"EACH WINNER RECEIVES:"; 


PRINT@?927,USING AA$;AM/WW; 
AM=0:GOTO 1820 
PRINT@P(1)+15,; 

PRINT"*®* NO WINNERS *«", 
GOTO 1870 

PRINT@863, ; 

PRINT'YOU WILL RECEIVE: "; 
GOTO 1740 

REM ANOTHER 

PRINT@384, ; 
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1840 INPUT" ANOTHER RACE (Y/N)";,A$ 
1850 IF AS="N" THEN 2000 

1860 CLS:ZZ=1:GOTO 360 

1870 FOR TU=1 TO 1200:NEXT 

1880 PRINT@P(1)+12,; 

1890 PRINT"IF ANOTHER RACE IS HELD, THE"; 
1900 PRINT@P(2)+412,; 

1910 PRINT"COMPUTER WILL BET THE MONEY"; 
1920 PRINT@P(3)+12,; 

1930 PRINT"ON A LANE IT SELECTS. * 

1940 CB=1:GOTO 1820 

2000 REM END 

2010 CLS 

2020 PRINT" FAREWELL ‘TIL THE NEXT RACE." 
2030 END 


Variables and Strings 

A - Number playing (1-15) 

A$() - Initials of players 

LA() - Lane number selected by the user 

CB - 0/1 to stop or race again 

L(L) - Spot positions, start/continue 

R(L) - Spot positions, greatest amount 

P(L), LP(L) - Win location 

M - Distance to move 

RF - Lane selected by the computer if required 
MNGQ - Total amount in bets 

AM - Amount carried over from previous race 
AAS - Amount messages 

FF - Print @ location for message 


Explanation of Program Lines 
Lines 10-270 display the general instructions. 


Lines 300-360 accept the number of players and their initials. 
Lines 370-470 allow each player to select a lane (1-4) and enter 


the amount he or she wants to bet. 
Line 480 is explained at lines 1300-1400. 


Lines 490-550 display a message concerning the betting. 


Lines 560-620 draw the outer boundaries of the track. 


Lines 640-690 establish the locations of the spot and display 


messages. 


Lines 700-950 print all four spots and keep them moving to 
right. Random amounts are added to each, dependent upon variable 
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M. Laps are increased by one for each spot when ABS(L()— 
R(D)>= 50. The first to reach 10 laps is the actual winner. 

Lines 960-990 allow the computer to select a lane and an 
amount to bet. 

Lines 1000-1040 work in conjunction with lines 700-950, 
clearing the screen and counting the laps. 

Lines 1200-1290 display messages that appear during the race. 

Lines 1300-1400 tally the amounts bet on each lane MN(T) 
using the individual bets Ad). 

Lines 1410-1470 print all bets as the race begins. The amount 
of each bet is placed beside the track that it was bet on. 

Lines 1500-1810 print the names of all the winners and how 
much they won. If there is no winner, the amount bet will be carried 
over. If more than one player wins on the same track, the total 
amount bet will be divided equally between those players. 

Lines 1820-2030 ask if the users want to race again and recycle 
the program or terminate appropriately. 
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lcan't tell 
you again 
| forgot the word 


What was that 


clue word? 


PARTNERS 


How well you depend upon your partner will be determined during 
this game. Up to 10 players (5 partners) can compete against one 
another. There will be 5 words. One player will view the word; the 
video will clear ; then the other player takes the keyboard. The first 
player, who viewed the word, will give his or her partner clues as to 
what the word is. One minute will be given to enter all 5 point 
words. The winners are the partners who get the most words 
correct. 


Sample Run 


PARTNERS 
INSTRUCTIONS BEFORE PLAY? YES 


HOW MUCH DO YOU RELY ON YOUR 
PARTNER? IF YOU RELY ON HIM 

OR HER TO THE FULLEST, THIS 
GAME WILL SURE TELL. THIS 

GAME REQUIRES AT LEAST 2 
PLAYERS; WHILE UP TO 10 CAN 
PLAY. 

THE OBJECT OF THE GAME IS TO 
INPUT 5 WORDS BEFORE A MINUTE 
HAS ELAPSED. EACH TEAM WILL 
SELECT WHO WILL SEE THE 

WORD. AFTER SEEING IT THE PLAYER 
WILL PRESS ENTER. THE SCREEN 
WILL CLEAR. 
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CONTINUE 
WORD ENTRY 


PRINT 
INSTRUCTIONS 


“S 


GET PARTNERS 
NAMES 


READ 
WORD DATA 


Flowchart for Partners. 


MESSAGE 
TIMES EXPIRED 


TIME 
ae EXPIRED 
WORD 

> 
PRINT WORD A 
T= = 
2000(LOOP} ADVANCE TO 
NEXT PARTNERS 
|NEXT PARTNERS) 
CLEAR 
o apace Seow 
PARTNER COMEARE 
ENTRY WORDS 
CORRECT 
Y 
N 


> 
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PRESS A KEY 


YOUR PARTNER (WHO SAW THE 
WORD) WILL THEN GIVE YOU CLUE 
WORDS TO WHAT IT MIGHT BE, BUT 
NOT THE ACTUAL WORD ITSELF. 
YOU WILL THEN START INPUTTING 
GUESSES OF WHAT YOU THINK THE 
WORD IS. AS SOON AS YOU HAVE 
INPUT THE CORRECT WORD, 
TIMING WILL STOP. YOU AND YOUR 
PARTNER WILL CHANGE PLACES, 
CHANGE PLACES, 

AND YOUR PARTNER 

WILL VIEW 

ANOTHER WORD, UP 

TO A TOTAL OF 5. 


PRESS A KEV..... 


REMEMBER THAT YOU'LL ONLY HAVE 
ONE MINUTE TO ENTER ALL 5 WORDS 
(EXCEPT FOR CHANGING TO REVIEW 
ANOTHER WORD). 


NUMBER PLAYING? 5 
EVEN NUMBER ONLY... 


NUMBER PLAYING? 4 

NOW ENTER THE 4 PEOPLE 
THAT WILL BE PARTNERS, 
AS EACH WILL PLAY. 


Program Listing 


10 REM PROGRAM TITLE: PARTNERS 
20 CLEAR $00:CLS 
30 RANDOM: DIM W$(S0),W(50),T¢11) 
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40 PRINT" PARTNERS" 

$0 PRINT 

60 INPUT" INSTRUCTIONS BEFORE PLAY (Y¥/N)",X5 
70 IF X$="N" OR X$="NO" THEN 470 

80 PRINT"HOW MUCH DO YOU RELY ON YOUR” 
90 PRINT" PARTNER? IF YOU RELY ON HIM" 
100 PRINT"OR HER TO THE FULLEST, THIS" 
110 PRINT"’GAME WILL SURE TELL THIS" 

120 PRINT"GAME. REQUIRES AT LEAST 2" 

130 PRINT" PLAYERS, WHILE UP TO i0 CAN” 
140 PRINT" PLAY." 

150 PRINT"THE OBJECT OF THE GAME IS TO" 
160 PRINT" INPUT 5 WORDS BEFORE A MINUTE" 
170 PRINT"HAS ELASPED. EACH TEAM WILL" 
i180 PRINT"SELECT WHO WILL SEE THE " 

i190 PRINT'WORD. AFTER SEEING IT THE PLAYER" 
200 PRINT"WILL PRESS ENTER; THE SCREEN" 
210 PRINT'WILL CLEAR." 

220 FOR T=#i TO 5$000:NEXT : PRINT 

230 PRINT" PRESS A KEY" 

240 X$=INKEY$:IF X$="" THEN 240 

250 PRINT@O,CHRS (30) 

260 PRINT’ YOUR PARTNER (WHO SAW THE " 

270 PRINT'WORD) WILL THEN GIVE YOU CLUE" 
280 PRINT'WORDS TO WHAT IT MIGHT BE, BUT" 
290 PRINT"NOT THE ACTUAL WORD ITSELF." 
300 PRINT" YOU WILL THEN START INPUTTING" 
310 PRINT'GUESSES OF WHAT YOU THINK THE " 
320 PRINT’ WORD IS. AS SOON AS YOU HAVE" 
330 PRINT"ENTERED THE CORRECT WORD" 

340 PRINT"TIMING WILL STOP. YOU AND YOUR” 
350 PRINT" PARTNER WILL CHANGE PLACES," 
360 PRINT"AND YOUR PARTNER WILL VIEW" 

370 PRINT" ANOTHER WORD, UP" 

380 PRINT'TOQ A TOTAL OF 3." 
390 PRINT 

400 PRINT'PRESS A KEY..... v 

410 X$=INKEYS:IF X$="" THEN 410 

420 CLS 

430 PRINT" REMEMBER THAT YOU'LL ONLY HAVE" 
440 PRINT"ONE MINUTE TO ENTER ALL 5 WORDS" 
450 PRINT" (EXCEPT FOR CHANGING TO" 

460 PRINT*REVIEW ANOTHER WORD.)" 

470 PRINT 

480 INPUT"'NUMBER PLAYING"; X 

490 IF INT(X/2)*%2¢9K THEN 510 
§00 GOTO 530 
510 PRINT"EVEN NUMBER ONLY..." 
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$20 PRINT:GOTO 480 
$30 IF X)10 THEN PRINT:GOTO 480 

$40 PRINT"NOW ENTER THE"; X; "PEOPLE" 

550 PRINT"THAT WILL BE PARTNERS,” 

$60 PRINT"AS EACH WILL PLAY." 

570 I=1:M=2 

580 INPUT @$(I) 

590 IF I=M THEN 610 

600 I=I+1:GOTO 580 

610 IF I)=X THEN 630 

620 I=I+1:M=M+2:PRINT:GOTO 580 

630 REM GET POINT WORD LIST 

640 FOR I=1 TO 50:READ W$(I) 

650 W(CI)=I:NEXT: WM=0 

660 I=] 

670 CLS:WWss"" 

680 PRINT Q$(1I);" YOU WILL NOW VIEW THE" 
690 PRINT"WORD, PRESS ENTER WHEN" 

700 PRINT“READY. YOU'LL HAVE 5 SECONDS" 
710 PRINT"TO RECOGNIZE AND REMEMBER IT"; 
720 INPUT X$ 

730 REM GET A WORD 

740 W=RND(50) 

750 IF W(W)=-99 THEN 740 

760 WSsWS(W) :W(W)=-99:CLS 

770 PRINT"THE WORD: “; WS 

780 FOR T=1 TO 2000:NEXT:CLS 

790 PRINT Q@$(1I);" GET YOUR PARTNER" 

800 PRINT Q$(i+i)," TO THE COMPUTER. * 

810 PRINT"TIMING WILL BEGIN (OR RESUME)" 
820 PRINT'WHEN YOU PRESS ENTER ";Q$(I+1); 
830 INPUT x$ 

840 CLS 

850 PRINT’ INPUT YOUR WORD THROUGH INKEY$." 
860 PRINT"PRESS THE CLEAR KEY AS SOON" 
870 PRINT"AS YOU ARE FINISHED, ";Q$(I41);". 
880 PA=256:PRINT@384,"TIME:"; 

890 PRINT@393,"SECONDS";:IF TM<)0 THEN 910 
900 TM=0:REM TIME RESET 

910 PRINT@PA,CHR$(143), 

920 VS=sINKEY$ 

930 IF LEN(V$)¢)0 THEN 1050 

940 IF V$="" THEN 960 

950 PRINT@PA,V$;:GOTO 1010 

960 FOR Tl=1 TO 25:NEXT 

970 TM=TM+.2:PRINT@389,INT(TM ; 

980 PRINT@PA,CHR$( 32) j 

990 FOR TI=1 TO 35:NEXT 
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1000 IF INT(TM)=60 THEN 1370 ELSE GOTO 910 
1010 REM WORD 

1020 WW$=WWS+V5 

1030 PA=PA+1 

1040 GOTO 9770 

1050 REM WORD FINISHED 

1060 IF ASC(V$)=31 THEN 1086 

1070 GOTO 940 

1080 PRINT@PA,CHR$(32),; 

1090 IF WW$<>WS THEN 1110 

1100 GOTO 1160 

1110 PRINT@5i2,"THAT IS NOT THE WORD py" 
1120 FOR TIl=1 TO 900:NEXT 

1130 PRINT@256,CHRS(30), 

1140 PRINT@512,CHR§$(30),; 


1150 WW$="":GOTO 880 
1160 PRINT@512,; 
1170 PRINT’ THAT IS CORRECT, "7,Qsc(r+ao gre” 


1180 IF WM>=4 THEN 1260 

1190 WM=WM+1 

1200 PRINT"PLEASE CALL ",;Q@$(1I);" TO THE" 
1210 PRINT"COMPUTER FOR ANOTHER " 
1220 PRINT’WORD VIEWING, “;Q$(I#1);"." 
1230 PRINT Q$(1);" PRESS ENTER"; 

1240 INPUT X$:WW$=s"" 

1250 GOTO 670 

1260 FOR TIl=1 TO 2000:NEXT:CLS 

1270 PRINT’ THAT IS ALL"; WM; "WORDS." 
1280 PRINT"YOU STILL HAD"; 460-INT(TM) 
1290 PRINT'SECONDS REMAINING.“ 

1300 TC1)=60-INT(TM) 

1910 IF I+1)}=X% THEN 1400 ELSE I=I+2 
1320 PRINT“IT IS NOW ";Q$(1);" AND "; 
1330 PRINT Q@$(I+1);"'S TURN." 

1340 PRINT“ PRESS ENTER WHEN READY"; 
1350 INPUT X$ 

1360 TM=0:WM=0.GOTO 670 

1370 PRINT@512,; 

4380 PRINT" YOUR TIME HAS EXPIRED !!!" 
1390 GOTO i300 

1400 REM ARRANGE TIMES 

1410 REM BEST TO WORST 

1420 I=#1:J=0 

1430 IF T(I))=T(I+2) THEN 1460 

£440 T=T(i): TOL) =TC142).TC1+2)5T: Jel 
1445 V$ CI) sQ$ (1): VSCT+1)sQ$(I41) 

£450 Q$(I)=Q$(142) QS(14+1)=Q5(1+3) 
£455 Q$Cl+2  =V$SC(1) QS (14+3)=V8(T +1) 
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1460 T=1+2 

1470 IF I>X THEN 1490 

1480 GOTO 1430 

1490 IF J=1 THEN 1420 

1500 FOR Ti=1 TO 2000:NEKT 

1510 CLS 

1520 PRINT" PLAYERS / TIME CONSUMED" 

1330 PRINT" IN QRDER OF TIME " 

1540 J=#2:FOR I[=1 TO X STEP 2 

1550 PRINT Q$¢(1I);" & ";Q8iéid),; 

1560 PRINT" CONSUMED" ;60-TC(I); "SECONDS." 
1570 FOR Ti=i TO 900:NEXT TI: J=J+2:NEXT I 
1380 PRINT 

15390 PRINT"END OF RUN... ." 

1600 END 

2000 DATA TELEVISION, ACCOMMODATE, TERRACE 
2010 DATA STEAM, CONCLUSION, AFFIRMATIVE 
2020 DATA SECTION, JOGGING, CIRCLE 

2030 DATA GEOMETRIC,CONFUSE, THIRSTY 

2040 DATA STOCK, PURGE, VANDALIZE, PERMIT 
2080 DATA REDUCE,LIMIT, GLANCE, TARGET 
2060 DATA ZODIAC,WIND, WEATHER, FRAGRANCE 
2070 DATA MATERAL,SUSPENSE, BLISTER 

2080 DATA ALUM, AMBIENT, COMMUNICATE 

2070 DATA BYPASS,GULP,FOREIGNER,MORTGAGE 
Z100 DATA RECOMMEND, PYRAMID, TENDER 

Zii10 DATA RECOVER, BRIDGE,WANDER,WALK 
2120 DATA COMPUTER, CORRESFOND,MATH 

Z2i30 DATA BLIZZARD, ASHTRAY, HOUSE 

2140 DATA AMOUNT, PROFESSION, DEMAND 


Variables and Strings 


X - Number of players, there must be an even number playing 
Q$() - Players’ names 

WS(I) - Words 

WQ) - For word deleted 

WM - Word count 

WWS$ - Total word entered (V$) 

W$ - Current word selected 

PA - Print @ location for letter entry 

TM - Time loop 

V$ - Entry of word through INKEY$ 

T(D) - Total time consumed by current partners 

I - Player count to go on to the next set of partners 
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Explanation of Program Lines 

Lines 10-470 display the general playing instructions. 

Lines 480-530 request the number of players. This must be an 
even number and is tested by line 490. 

Lines 540-620 request the players to input their names in 
pairs. 

Lines 630-650 read the words to be guessed from the data 
lines. 

Lines 660-720 display a message. 

Lines 730-760 select a word to be guessed. If the word has 
already been used, it will be deleted by setting W(W) =~ 99, 

Lines 770-780 prints the word so that one of the partners can 
see it. 

Lines 790-830 display a message for the other players (player 
2). 

Lines 840-1040 accept the input of the word guess by player 2 
by using the INKEY$ function to form WW§. Timing is kept by the 
variable TM which is advanced by +.2. If the integer of TM = 60, 
one minute has elapsed. If player 2 has entered the word and 
pressed the clear key (line 1060) the program will branch to line 
1080. 

Lines 1050-1070 test for the pressing of the clear key. 

Lines 1080-1250 determine whether or not the correct word 
was entered. Ifit was, another word will be selected, if WM< = 4 in 
line 1180. If it wasn’t, the same word will be given again. In either 
case continuing depends on the value of INT(TM), the amount of 
time that has elapsed. 

Lines 1260-1300 display a message indicating that all five 
words have been entered and showing the amount of time remain- 
ing. 

Lines 1310-1360 advance to the next set of partners (if there 
are more). 

Lines 1370-1390 display the time-expired message. 

Lines 1400-1490 arrange the times for each set of partners 
from best to worst. 

Lines 1500-1600 display the partners’ names and the total 
amount of time it took them to enter all five words. 

Lines 2000-2140 are data lines containing all the words to be 
guessed. 
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Ti OLA ARAB 


POINT A TO POINT B 


This is one maze game you'll find hard to get away from. Unlike 
when you use the ordinary maze game (pressing different keys for 
different directions), you'll enter all of your directions and spaces 
before any movement takes place. Don’t write down all the direc- 
tions and spaces; you'll be wasting your time! The maze changes 
with each player or run. Note that the IBM version of this program 
is included in Appendix A. 


Sample Run 


< FROM POINT A > 
< TO POINT B > 


INSTRUCTIONS (Y/N)? Y 
NUMBER TO PLAY (1-10)? 4 


ARE YOU CONFUSED BY THE MANY 
DIFFERENT MAZE GAMES THAT ARE 
CURRENTLY ON THE MARKET? HAVE 
NO FEAR!! FROM POINT A TO 

POINT B IS HERE!! 


296 


START 
NUMBER 
OF PLAYERS 
IFG=1 
PRINT INSTRUCTIONS 


PLAYERS’ 
NAMES 


MAZE 
GRAPHICS 


CURRENT PLAYER 
INPUT DIRECTION 


COMPUTER TO 
CARRY OUT ALL 
INSTRUCTIONS 


NUMBER OF 
SPACES 


ADVANCE TO 
NEXT PLAYER 


SUCCESSFULLY 
TO POINT B 


Y 
MESSAGE 


MESSAGE 


Flowchart for Point A to Point B. 
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DIRECTION (L,R,U,D)?— 


ACTUALLY, THIS IS NOT YOUR 
RUN-OF-THE-MILL MAZE GAME. 

WHAT IT IS IS A MAZE GAME THAT 
WILL PROBABLY CONFUSE YOU MORE 
THAN EVER. YOU SEE, YOU WILL 

NOT BE CONSTANTLY BE PRESSING 
DIFFERENT KEYS FOR DIFFERENT 
DIRECTIONS; YOU'LL INPUT ALL 


PRESS ENTER? 


OF THE INSTRUCTIONS BEFORE YOU 
MOVE AT ALL; UP SO MANY 

SPACES, RIGHT SO MANY SPACES, 
LEFT SO MANY SPACES, ETC., ETC. 
AFTER YOU HAVE ENTERED ALL 
YOUR INSTRUCTIONS, 

YOU WILL INPUT XX. AT THAT 

POINT YOUR PIECE WILL BEGIN 

TO MOVE ACCORDING TO THE INSTRUCTIONS 
YOU GAVE. IF AT ANY POINT YOU 
COLLIDE WITH ANYTHING, 

IT 1S THE END OF YOUR 

TURN... 


PRESS ENTER, AGAIN? 
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ENTER THE FIRST NAMES OF 
THE 1 PLAYERS, PLEASE 
? DAVE 


TO BEGIN DAVE, PRESS ENTER 


Program Listing 


10 

20 

30 

40 

30 

60 

70 

80 

90 
100 
110 
1290 
130 
140 
130 
160 
170 
180 
190 
200 
210 
220 
230 
240 
2350 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


360 
370 
380 


REM PROGRAM TITLE: 

REM FROM POINT A TO POINT B 

CLEAR 300: RANDOM: CLS 

PRINT"'< FROM POINT A >" 

PRINT'< TO POINT 8B >" 

PRINT: DIM D$(50),S¢50) 

INPUT" INSTRUCTIONS (Y/N) ";, WS 

IF W$s"N" THEN G=1 

INPUT"NUMBER TO PLAY (1-100";A 

IF A<i OR Ad10 THEN 990 

IF G=i THEN G=0:GOTO 410 

PRINT'ARE YOU CONFUSED BY THE MANY" 
PRINT“ DIFFERENT MAZE GAMES THAT ARE“ 
PRINT“ CURRENTLY ON THE MARKET? HAVE" 
PRINT"NO FEAR! ! FROM POINT A TO” 
PRINT" POINT 8 IS HERE! !" 

PRINT" ACTUALLY, THIS I5 NOT YOUR" 
PRINT" RUN-OF-THE-MILL MAZE GAME." 
PRINT"WHAT IT 18 15 A MAZE GAME THAT" 
PRINT"WILL PROBABLY CONFUSE YOU MORE" 
PRINT'THAN EVER. YOU SEE, YOU WILL" 
PRINT"NOT BE CONSTANTLY PRESSING" 
PRINT'DIFFERENT KEYS FOR DIFFERENT" 
PRINT" DIRECTIONS; YOU'LL INPUT ALL" 
INPUT" PRESS ENTER" ;W 

CLS 

PRINT’OF THE INSTRUCTIONS BEFORE YOU" 
PRINT'MOVE AT ALL: UP SO MANY" 
PRINT"SPACES, RIGHT SO MANY SPACES," 
PRINT'LEFT SO MANY SPACES, ETC.,ETC." 
PRINT"AFTER YOU HAVE ENTERED ALL" 
PRINT"OF YOUR INSTRUCTIONS," 
PRINT"YOU WILL INPUT XX. AT THAT" 
PRINT" POINT YOUR PIECE WILL BEGIN" 
PRINT"TO MOVE ACCORDING TO THE 
INSTRUCTIONS" 

PRINT" YOU GAVE. IF AT ANY POINT YOu" 
PRINT"COLLIDE WITH ANYTHING " 

PRINT" YOUR TURN ENDS." : PRINT 
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400 INPUT"PRESS ENTER, AGAIN";W 
410 CLS 

420 REM PLAYERS 

430 REM PLAY IN ORDER OF ENTRY 

440 PRINT“ENTER THE FIRST NAMES OF" 

450 PRINT"THE";A;"PLAYERS, PLEASE" 

460 FOR I=1 TO A: INPUT A$(1> 

470 NEXT: L=1:MX=0 

480 PRINT 

490 PRINT"TO BEGIN "j;A$(L)j", PRESS ENTER"; 
500 INPUT W 

510 REM GRAPHICS 

$20 CLS:FOR X=0 TO 127 

530 SET(X,0):SET(X,39) :NEXT 

540 FOR X=i TO 38 

550 SET(0,X):SET(127,X):NEXT:GOTO 560 
$60 PRINT@65,S5TRING$ (62,140); 

$65 D=RND(110):1F D<102 THEN 565 

570 PRINT@D,STRING$ (2,32); : RETURN 

580 GOSUB 560: PRINT@193,STRING$(12,131); 
590 PRINT@220,STRING$(11,131);:GOTO 620 
600 PRINT@232,STRINGS (22,131); 

605 D=RND(252):1F D<240 THEN 605 

610 PRINT@D,STRING$(2,32);: RETURN 

620 GOSUB 600:M=30:Mi=56:M2=6:M3=12:GOTO 670 
630 FOR X=M TO M1:SET(K,M2) 

640 SET(X,M3):NEXT:FOR X=M2+i1 TO M3~-1 
650 SET(M,X):SET(M+1,X):SET(M1-1,X) 

660 SET(M1,X) :NEXT: RETURN 

670 GOSUB 630 

680 M=1:M1is15:MZ2=12:M3=17:GOSUB 630 

690 M=19:M1=28:GOSUB 630 

700 M=M1+3:M1=M1+72:M2=M3-2:M3=M3+6 

710 GOSUB 630 

720 M=M1+4:M1=Mi+27:MZ=M2+6 :M3=M3+6 

730 GOSUB 630 

740 Ms1:Mi=28:GOSUB 630:GOTO 770 

750 PRINT@590,STRING$(38,131) ; 

752 PRINT@371,STRING$(12,131); 

755 D=RND(626):IF D<590 THEN 755 

758 F=RND(381):1F F(371 THEN 758 

760 PRINT@D,STRING$ (2,32); 

765 PRINT@FE,STRING$ (2,32); : RETURN 

770 GOSUB 750:M1=M1-4:M2=M3+2:M3=M3+6 
775 GOSUB 630 

780 MsM1+4:M1=M1+14 

790 GOSUB 630 

800 IF M>=112 THEN 880 
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810 GOTO 780 

820 M=M-15:Mi=M+10:M2=2:M3=5 

830 GOSUB 630 

840 M=M—-14:Mit=M4+12:M2=M3+3:M3=M3+8 

850 GOSUB 630 

860 M=M-15:MieM+4:M2=4:M3=6 

870 GOSUB 630:RETURN 

880 REM START / STOP LOCATIONS 

890 GOSUB 820:XX=1:Y=#37:X=2:X2=125 

900 Xi=RND(X2> 

910 RESET(X-1,¥Y) 

920 K=X+i 

930 SETC(X,Y) 

940 XX=XX+1:1F G=1 AND XX)=150 THEN 1000 
950 IF X=Ki AND XX)=50 THEN 1000 

960 IF X>=X2 THEN 980 

970 GOTO 900 

980 RESET(X,Y):RESET(X-1,Y> 

990 X=2:GOTO 9700 

1000 XX=1:PRINT@896,;:I1F G=i THEN 1110 
1010 PRINT"THIS IS POINT A (START) ." 
1020 RESET(X,Y) : RESET(X-1,¥Y) 

1030 FOR T=i TO 50:NEXT 

1040 SET(X,Y> 

1050 FOR T=1 TO 25:NEKT: XX=XX+l 

1060 IF XX<=#10 THEN 1020 

1070 IF G=i THEN 1150 ELSE JJ=x 

1080 G=i:PRINT@896,CHRS(30) 

1090 PRINT@896,"LOOK AT THE TOP (POINT B)." 
1100 X=2:Y¥=2:XX=21:X1=1:X2=90:GOTO 700 
1110 PRINT@896,CHRS (30> 

1120 PRINT@896,,; 

1130 PRINT"THIS IS POINT B (STOP ZONE) ." 
1140 R=X:GOTO 1020 

1150 PRINT@896,CHRS(30) 

1160 GOTO i210 

1170 PRINT@896,; 

1180 RETURN 

1190 FOR T=1 TO 1200:NEXT 

1200 PRINT@896,CHR$(30): RETURN 

1210 GOSUB 1170 

1220 PRINT"YOU WILL NOW GIVE INSTRUCTIONS" 
1230 GOSUB 1190:GOSUB 1170 

1240 PRINT'TO ENTER THE STOP ZONE..." 
1250 GOSUB 1190:GOSUB 1170 

1260 PRINT'THE STOP ZONE BLOCK MUST BE HIT" 
1270 GOSUB 1190:GOSUB 1170 

1280 PRINT"HEAD-ON TO COMPLETE A RUN." 
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1290 GOSUB 1190:GOSUB 1170 

1300 I=1 

1310 INPUT"DIRECTION (L,R,U,D)";D$ 
1320 IF D$="XX" THEN 1380 

1330 D$(I)=DS:GOSUB 1170 

1340 INPUT" FOR HOW MANY SPACES";S 
1350 S¢I)d=S:1[=I+1:GOSUB 1170 

1360 IF I>=51 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:GOTO 1316 
1380 GOSUB 1170 

1390 PRINT"THE COMPUTER WILL NOW CARRY" 
1400 GOSUB 1190:GOSUB 1170 

1410 PRINTOUT ALL OF YOUR INSTRUCTIONS." 
1420 I=sI-lL:Hel: Teal: XsJJ:Y=#{37:G6=0 
14253 GOSUB 1190:GOTO 1480 

1430 GOSUB 1170 

1440 PRINT"THAT IS THE LIMIT OF THE" 
1450 GOSUB 1190:GOSUB 1170 

1460. PRINT!INSTRUCTIONS..vYOU CAN ENTER." 
1470 GOSUB 1190:GOTO i380 

1480 D$=D$(1I):S=S¢1I):J=1 

1490 IF D$="L" THEN 1540 

1300 IF D$="R" THEN 1580 

1510 IF Ds="U" THEN 1620 

1520 IF D$s=s="D" THEN 1660 

1530 GOTO 1760:REM BAD DIRECT 

1340 IF POINT(X-i1,Y) THEN 1760 

1350 X=K-1:RESET(X4+1,Y)> 

1560 IF X¢=0 THEN 1760 

1370 GOTO 1690 

1580 IF POINT(X+1,Y) THEN 1760 

1390 X=X+1:RESET(X-~-1,Y) 

1600 IF X>=#126 THEN 1760 

1610 GOTO 1690 

1620 IF POINT(X,Y~i) THEN 1760 

1630 Y=¥-1:RESETCX,Y+1) 

1640 IF Y<=i THEN 1760 

1630 GOTO 1690 

1660 IF POINT(CX,Y+#1) THEN 1760 

1670 Y=¥+1:RESET(X,Y+1) 

1680 IF Y¥>)=39 THEN 1760 

1690 SETC(K,Y) 

1700 IF S)J THEN 1720 

i710 GOTO 1730 

1720 J=J+1:GOTO 1490 

1730 I=I+1i 

1740 IF I>H THEN HH=1:GOTO 1760 

1750 GOTO 1480 
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1760 GOSUB 1170:1F ABS(X-R)<=1 THEN 2060 
1765 IF HH=1 THEN HH=0:GOTO 1900 

1770 PRINT"SORRY...YOU HAVE ATTEMPTED" 
1780 GOSUB 1190:GOSUB 1170 

1790 PRINT"A SHORT-CUT THAT DIDN'T WORK." 
1800 REM ANOTHER PLAY? 

1810 GOSUB 1190 

1820 GOTO 1950 

1830 GOSUB 1190:GOSUB 1170 

1840 PRINT'READY TO TRY AGAIN (Y/N)",; 
1650 INPUT W5 

1860 IF WS="¥" THEN 1880 

1870 GOTO 2300 

1880 RESET(X,Y) :RESETCR,2) 

1890 GOTO 1970 

1900 GOSUB 1170 

1910 PRINT'THAT WASN'T ENOUGH TO GET" 
1920 GOSUB 1190:GOSUB 1170 

1930 PRINT" YOU TO THE STOP ZONE ";A$(L) 
1940 GOTO 1800 

1950 REM PLAYER ADVANCE 

1960 IF L>=A THEN 2020 ELSE L=L+i 

1970 GOSUB 1170 

1980 PRINT A$(L);" WILL NOW ATTEMPT THE" 
1990 GOSUB 1190:GOSUB 1170 

2000 PRINT" VENTURE FROM POINT A TO B." 
2005 RESET(X,Y):RESETCR,2):GOSUB 560 
2010 GOSUB 600:GOSUB 750:Ms11iZ2:Mle122 
2015 GOSUB 1190:GOTO 880 

2020 REM START OVER 

2030 L=i:GOSUB 1170 

2040 PRINT"ALL HAVE PLAYED...." 

2050 GOSUB 2160:MX=0:GOTO 1830 

2060 IF ABS(Y-2)>=i THEN 1900 

2070 GOSUB 1190:GOSUB 1170:REM COMPLETE 
2080 PRINT"VERY WELL DONE, ";A$(EL);, "1 1" 
2090 GOSUB 1190:GOSUB 1170 

2100 PRINT" YOU HAVE MADE A COMPLETE" 
2110 GOSUB 1190:GOSUB 1170 

2120 PRINT" PASSAGE TO POINT B....." 
2130 GOSUB 11990 

2140 M(L)si:MX=1 

2150 GOTO 1750 

2160 REM PLAYERS MADE TO POINT B 

2170 IF MX=Q THEN RETURN 

2180 GOSUB i1190:GOSUB 1170 

2190 PRINT"THE FOLLOWING HAVE EASILY MADE" 
2200 GOSUB 1190:GOSUB 1170 
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2210 PRINT"IT TO POINT B....." 
2220 GOSUB 1190:GOSUB 1170 
2230 FOR U=i TO A 

2240 IF M(U)s1 THEN 2260 

2250 NEAT: RETURN 

2260 PRINT ASC(UdD;"....." 

2270 GOSUB 1190:GOSUB 1170 
2280 M(U)=0:GOTO 2250 

2300 REM END 

2310 GOSUB 1190:GOSUB 1170 
2320 PRINT" POINT A TO POINT 8B" 
2330 GOSUB 1190:GOSUB 1170 
2340 PRINT“TERMINATED..... y 
2350 GOSUB 1190:GOSUB 11790 
2360 END 


Variables and Strings 


A - Number of players 

G - 0/1 for skip of the instructions 
A§$(D - Player’s first names 

L - Current player 

D,F - Arandom amount to make certain parts of each maze different 
M, M1, M2, M3 - For maze graphics 
%,Y - Start location ; JJ=X at point A 
X,Y - Stop location; R=X at point B 
D$(D - User’s direction 

S(D - Spaces per direction 

I - Number of moves, up to 50 

H - Total number of moves entered 
D§ - Direction, as per D$() 

S - Spaces, as per S(D) 

J - Total spaces per direction (counter) 
M(L) - Players that made it to point B 


Explanation of the Program Lines 


Lines 10-400 request the number of players and display the 
general instructions. 

Lines 410-470 accept the players’ first names. 

Lines 480-500 display a message to the current player. 

Lines 510-870 create the maze graphics. The random variable 
D and F will help insure that certain parts of the maze will be 
different each time in case there are users who decide to cheat by 
writing down the instructions. 
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Lines 880-1160 randomly select the locations of point A, the 
start, and point B, the stop. 

Lines 1170-1180 form a subroutine used for displaying mes- 
sages. 

Lines 1190-1200 form a subroutine that creates a pause and 
clears the message from the screen. 

Lines 1210-1290 display a message to the user before he or she 
inputs his or her instructions. 

Lines 1300-1370 allow the user to input all of his or her 
instructions for getting to point B. Up to a total of 50 can be entered 
if they are needed. 

Lines 1380-1410 display a message indicating that the com- 
puter is ready to carry out the user’s instructions. 

Lines 1420-1425 set some variables before the actual move- 
ment begins. 

Lines 1430-1470 displays a message indicating that no more 
instructions can be entered. 

Lines 1480-1750 cause the computer to carry out all of the 
instructions entered by the user. These lines also test for any hits. 
Ifa hit is encountered, the program is terminated or branches to the 
next player. 

Line 1760 tests to see if the user is close to point B. 

Line 1765 tests to see if the user has entered enough instruc- 
tions. 

Lines 1770-1820 display a message if a hit is encountered. 

Lines 1830-1890 ask if the user wants to try again after all have 
played. 

Lines 1900-1940 display a message indicating that there are 
not enough instructions to make it to point B. 

Lines 1950-2015 advance to the next player. 

Lines 2020-2050 display a message indicating that all have 
played and allow the user to try again! 

Line 2060 further tests to see if the player is at point B. Ifhe is 
not, the program branches back to line 1900. 

Lines 2070-2150 print the names of all players that have suc- 
cessfully made it to point B and then terminate the program. 
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CUBES REMAINING: 10 CUBES ADDED: 


INJECTOR: 


INJECTION 


Ina laboratory there is a colony of bacteria. This colony was meant 
for experiments, but now it cannot be controlled. You'll have the 
honor of trying to destroy it. As many as five cubes of bacteria will 
race across the video one at atime. Your injector machine is located 
on the runner near the middle of the video. To inject, press the up 
arrow key. For an injection to work, it must hit directly in the 
opening of the bottom of the cube. If an injection is missed, the 
bacteria increase by one. To be successful, destroy all the cubes. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


> INJECTION < 


NUMBER TO PLAY? 4 
THE INITIALS OF PLAYERS. 
2 AA. 


~N 
Oo} 
oo 


.?) 


? 
? D.D. 


Oo 


YOU ARE HEAD OF A LABORATORY 
IN WHICH YOUR COMPANY IS 
INJECTING CUBES WITH 
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NUMBER OF 
PLAYERS 


NAMES OF _ 
PLAYERS 


INSTRUCTIONS 


SET 
RIABLES 


CONTINUE 
MOVEMENT 


ADVANCE 
COUNTERS 


CLOSING 
MESSAGE 


{ STOP | 


Flowchart for Injection. 
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—_e 


—_o 


Huis og 


A SOLVENT TO DESTROY A COLONY 
OF BACTERIA THAT CANNOT BE 
CONTROLLED. THESE CUBES WILL 
RACE ACROSS THE SCREEN 5 AT A 
TIME. TO INJECT A CUBE, HOLD 

THE UP ARROW KEY. THE 

SOLVENT MUST GO IN THE OPENING 
AT THE BOTTOM OF THE CUBES. 


PRESS ENTER? 


EACH TIME A CUBE [S INJECTED, 
THE NUMBER RACING ACROSS THE 
VIDEO WILL DECREASE BY ONE, BUT 
NOT LESS THAN THREE WILL RACE 
ACROSS AT ONE TIME. A TOTAL 

OF 10 CUBES MUST BE INJECTED. 
IF AT ANYTIME YOU MISS AN 
INJECTION, THE NUMBER WILL 
INCREASE BY ONE. THE INJECTION 
MACHINE CAN BE MOVED LEFT OR 
RIGHT WITH THE LEFT AND RIGHT 
ARROW KEYS. GOOD LUCK... 


PRESS ENTER TO BEGIN? 
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Program Listing 


10 
20 
30 
40 
50 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

1690 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 


REM PROGRAM TITLE: INJECTION 
CLEAR 100 

RANDOM 

CLS 

PRINT"> INJECTION ¢" 

PRINT: S5=31266 

INPUT"NUMBER TO PLAY (1-10)",U 
IF U<i OR U>}10 THEN 70 
PRINT"THE INITIALS OF PLAYERS." 
FOR I=i TO U: INPUT K&§¢1) 

NEXT: PRINT: PL=1 

PRINT" YOU ARE HEAD OF A LABORATORY" 


PRINT"IN WHICH YOUR COMPANY IS *“ 
PRINT" INJECTING CUBES WITH" 

PRINT"A SOLVENT TO DESTROY A COLONY" 
PRINT"OF BACTERIA THAT CANNOT EE" 
PRINT" CONTROLLED. THESE CUBES WILL" 
PRINT"RACE ACROSS THE SCREEN 3 AT A" 
PRINT"TIME. TO INJECT A CUBE, HOLD” 
PRINT"THE UP ARROW KEY. THE INJECTED" 
PRINT" SOLVENT MUST GO IN THE OPENING" 
PRINT"AT THE BOTTOM OF THE CUBES." 
PRINT 

PRINT 

INPUT" PRESS ENTER"; L 
PRINT@64,CHRS (30) 


PRINT“ EACH TIME A CUBE IS INJECTED," 
PRINT" THE NUMBER OF CUBES RACING ACROSS" 
PRINT'THE VIDEO WILL DECREASE BY ONE, BUT" 
PRINT"NOT LESS THAN THREE WILL RACE" 
PRINT"ACROSS AT ONE TIME. A TOTAL" 
PRINT'OF 10 CUBES MUST BE INJECTED." 
PRINT" IF AT ANYTIME YOU MISS AN' 

PRINT" INJECTION, THE NUMBER WILL" 

PRINT" INCREASE BY ONE. THE INJECTION" 
PRINT'MACHINE CAN BE MOVED LEFT OR" 
PRINT"RIGHT, WITH THE LEFT AND RIGHT" 
PRINT’ ARROW KEYS. GOOD LUCK..." 

PRINT 

INPUT" PRESS ENTER TO BEGIN";L 

CLS: JNs0:T=1:1N=10.E=0:CV=5:GOSUB 600 
REM THE CUBES 
X=65:¥=129:M=2X¥-N=Y¥:J=0:JJ=0 

PRINT@X, STRINGS (6,191); 

PRINT@Y,STRINGS (6,191), 

PRINT@Y+2," ae 
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470 
480 
490 
500 
$10 
520 
330 
340 
350 
360 
370 
380 
600 
610 
620 
630 
640 
650 
660 
670 
6a0 
670 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
835 
840 
845 
850 
860 
870 
880 
890 
900 
910 
920 
930 
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XeX¢+8 Y=VY+8:J=J+1:POKE S,25 
IF JJ=1 THEN 520 

IF J)=xCV THEN 510 

GOTO 440 

REM BLANK OUT 

PRINT@M, STRINGS (6,32); 
PRINT@N, STRINGS (6,32); 
M=M+8:N=N+8:SS=USR(0) 

REM RECYCLE 

IP X)2#128 THEN X=65:Y=129:JJ=1:GOTO 
IF M)=128 THEN 430 

GOTO 720 

REM OUTER BORDER / INJECTOR 
FOR X=0 TO 127:SETC(XK,0) 
SET(X,46):SET(X,47) : NEXT 

FOR X=#1 TO 45 
SET(0,X):SETC1,k)> 
SET(126,X):SET(127,X%) :NEXT 
PRINT@S76,STRING$ (63,191); 
Q=514:I15=STRING$(2,191):CA=0 
PRINT@Q,1$;:PRINT@770," INJECTOR: "; 
PRINT@642,"CUBES REMAINING: "; 
PRINT@682,"CUBES ADDED:", 
PRINT@780,K$5(PL); : RETURN 

REM INJECTION / INJECTOR MOVE 
IF R=8 THEN 790 

R=PEEK( 14440) 

IF R=8 THEN 790 

IF R=32 THEN 900 

IF R=64 THEN 960 

GOTO 440 

IF JN=1 THEN 810 

QQ=Q: JNzi 

IF Q¢=191 THEN V=1:GOTO 860 
PRINT@Q," oe 
Q@=Q~-384:PRINT@Q,15; 

IF PEEK(G@+153604+2)=2191 THEN 845 
GOTO 440 

IF PEEK(Q+15360-2)=191 THEN 1020 
GOTO 440 

PRINT@Q," or 

Q@=QQ+E:QQ=0:E=0 
PRINT@Q,16;:1F Vzi GOSUB 1140 
R=0:JN=0:GOTO 440 

REM TO LEFT 

IF Q@¢2516 THEN 440 

PRINT@Q," me 

Q=Q-T 


980 


940 PRINT@Q, I$; 

950 GOTO 440 

960 REM TO RIGHT 

970 IF Q@)2570 THEN 440 

980 PRINT@Q," ", 

990 QaQ+T 

1000 PRINT@Q,1$; 

1010 GOTO 440 

1020 IF PEEK(Q+15360-64)8191 THEN 1030 
1025 GOTO 440 

10390 IF PEEK(G+15960-1)8191 THEN 1045 
1040 GOTO 440 

1045 IF PEEK(Q+15360+1)=2191 THEN 1060 
1050 GOTO 440 

1060 REM INJECTED 

1070 TexT+1i:CVsCV-1:POKE S,255:SS=USR(0) 
1080 IF T)=S THEN Te=1 

1090 IF CV¢=2 THEN CV=aS 

1100 IN=IN-1: PRINT@660,I1N; 

1110 IF IN¢=0 THEN 1250 
1120 E=RND(S):1F £+QQ)=$72 THEN E=-RND(5) 
1130 GOTO 860 
1140 REM CUBE ADDED / INJECTION MISSED 
1150 IN=IN+1:POKE &,50:SS=USR(0) 
1160 CA=CA+1:V=0 
1170 TsT-1 

1180 IF T<=0 THEN Te=1 

1190 PRINT@6460,1IN; 

1200 PRINT@695,CA; 

1210 RETURN 

1250 REM PLAYER ADVANCE 

1260 WCPL)=CA: PL=PL+1 

1270 IF PLOU THEN 1310 

1280 PRINT@770,"STANDBY ";KSC(PL)O;"...0..%; 
1290 FOR YY=1 TO 1500:NEXT 

1300 R=0:GOTO 410 

1310 FOR YY=i1 TO 900:NEXT:CLS 

1320 PRINT"ALL PLAYERS HAVE HAD THEIR” 
1330 PRINT"TURN AT THE INJECTION MACHINE.” 
1340 PRINT" SCORES ARE BASED ON THE NUMBER" 
1350 PRINT"OF CUBES THAT WERE ADDED DURING" 
1360 PRINT"THE INJECTION PROCESS. " 

1370 PRINT: FOR I=1 TO VU 

1380 PRINT"INJECTOR: ";,KS (1) 

1390 PRINT"“HAD" ;WCI); "CUBES ADDED." 

1400 PRINT" FINAL SCORE EVALUATION: "; 
1410 W=W(T) 

1420 IF W>)=0 AND Wt=53 THEN 1470 
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1430 IF W>=5 AND Wt=10 THEN 1480 
1440 IF W)=10 AND Wt=20 THEN 1490 
1450 PRINT"TO SORRY TO MENTION." 
1460 GOTO i500 

1470 PRINT" EXCELLENT." :GOTO 1500 
1480 PRINT'FAIR.": GOTO 1500 

1490 PRINT'POOR." 

1500 FOR YY=1 TO 1200:NEXT YY: PRINT 
1310 NEXT I 

1320 PRINT 

1530 PRINT'END OF INJECTION." 
1340 END 


Variables and Strings 

S - Sound location (machine language) 

U - Number of players 1-10 

K$() - Initials of players 

PL - Total number of players, counter 1 to U 

JN - 0/1 variable; 1 means that QQ is already set to the amount of Q 
(before injection) 

IN - Total injections 

E - Random amount added to Q when it returns to its former location 
(after injection) 

X, Y,M,N,J,JJ - All for graphics of cubes 

SS - USR call, sound routine 

Q - Print @ location of injector 

I$ - Injector 

CA - Cubes added, injection missed 

R - Peek for users key closure 

QQ - Value of Q GN=1) before injection (Q location) 

T - Amount added to Q if cube is injected; this amount will not be 
larger than 4 

W(PL) - Player, number of cubes injected 

W - Value of W(PL) for print messages 


Explanation of the Program Lines 


Lines 10-400 accept the input of the number of players and 
their names, and display the general instructions. 

Line 410 initializes some variables, and uses lines 600-710 to 
set the outer border and print a message. 

Lines 420-570 draw the cubes (5) and blank out a portion at the 
lower center of each. Lines 440-580 also keep the cubes moving. 
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Lines 720-770 test for key closure and determine whether or 
not R is equal to 8. 

Line 780 recycles back to line 440 to keep the cubes moving. 

Line 790 tests whether or not JN=1. If it does QQ already 
contains the value of Q. This is the value before the injection. 

Line 800 sets the variable QQ to the value of Q, meaning that 
the user is ready to make an injection. JN is set to 1. 

Line 810 tests the value of Q for resetting purposes. Lines 
860-890 are used. 

Lines 820-850 tests to see if a cube has been injected. If one has 
been, the program will branch to the appropriate lines. 

Lines 900-950 allow the user to move the injector to the left. 

Lines 960-1010 allow the user to move the injector to the right. 

Lines 1020-1050 test peek(Q+15360 + or — an amount) to see 
if the cube has really been injected. 

Lines 1060-1130 are used when the cube had been injected. 
The variable IN is decreased by one. A random amount E, is added 
to Q so the user cannot expect another injection to occur in the same 
location at that moment. 

Lines 1140-1210 are used when the injection missed. Another 
cube is added. The total number of injections and cubes are printed 
in lines 1190 and 1200. 

Lines 1250-1310 go to the next player if PL (player counter) is 
less than U (total players). If this argument is satisfied, the program 
branches back to line 410. The variables are reset and the next 
player begins. 

Lines 1320-1540 terminate the program. All players’ names, 
their scores, and messages are printed. 
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gil 
= FIGURE! LN InN 


INTERCEPT 


This game requires you to intercept and possibly destroy any 
intruder that wanders into your dome. You have been given a ten 
day commission to guard this city within a dome. Some of the 
figures that enter the dome are alien; some are friendly. Within an 
allotted amount of time, you must decide which is which. It helps to 
remember the shape of the figures. Do not destroy the friendly 
intruders! Note that the IBM version of this program is included in 
Appendix A. 


Sample Run 


INTERCEPT 


INSTRUCTIONS? YES 
YOU ARE THE LEADER OF A SPECIAL 
GROUP KNOWN AS INTERCEPT. 

YOU WILL HAVE TO IDENTIFY AND 
POSSIBLY DESTROY ANY ALIENS THAT 
VENTURE IN THIS STERILIZED DOME 
WHERE ALL OF YOUR INHABITANTS 
LIVE. THE DOME, WHICH CONTAINS 
CROSSROADS, IS THE TERRITORY. 
NEAR THE EDGES OF THE SCREEN 
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PRINT 
INSTRUCTIONS 


USER'S 
FIRST NAME 


OUTPUT 
GRAPHICS 


MESSAGES 


a ag 


GET A FIGURE 


PRINT FIGURE 


MOVE FIGURE 


TEST LASER 


PEEK(A + 15360 


teh a8 INTRUDER HIT 


INTRUDER IN 
N 


TEST ALL 
AMOUNTS 


“4 RECHARGE 
LASER 


Flowchart for Intercept. 
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LEADER: 

PRESENT CONDITION: QUIET 
LASER STATUS: CHARGING 
DAYS ON COMMISSION: 10 


ARE TWO LASER CANNONS. 

THESE CANNONS WILL FIRE ONLY 
WHEN THE CORRECT KEY SEQUENCE 
HAS BEEN ENTERED BY YOU. 


PRESS ENTER PLEASE? 


AT RANDOM TIMES, DIFFERENT FIGURES 
WILL. APPEAR AT THE CENTER OF 

THE VERTICAL ROAD OF THE CROSS- 
ROADS. WHEN THE FIGURE !S AT THE 
CENTER IN LINE WITH YOUR LASER, 

YOU MUST DECIDE WHETHER IT IS ALIEN 
OR FRIENDLY. IF YOU BELIEVE THAT 

IT IS THE LATTER OF THE TWO, DO 
NOTHING; JUST LET IT PASS. IF 

YOU BELIEVE IT IS ALIEN, FIRE THE 
LASER BY PRESSING THE RIGHT THEN 
THE LEFT ARROW KEYS, THEN FINALLY 
PRESSING THE SPACEBAR. YOU CAN 
HAVE THE LASER READY BEFOREHAND 
BY PRESSING THE ARROW KEYS TO 
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PRESS ENTER PLEASE? 


MAKE THE LASER READY, YOUR COM- 
MISSION WILL LAST 10 DAYS. IF 

YOU DESTROY 10 FRIENDLY IN- 
TRUDERS BEFORE THAT TIME, YOUR 
COMMISSION WILL BE TERMINATED 
BEFORE THEN. 

THE FINAL OBJECT IS TO DESTROY AS 
MANY ALIEN INTRUDERS AS YOU CAN 
BEFORE YOUR COMMISSION EXPIRES. 


YOUR LAST NAME, PLEASE? SMITH 


Program Listing 


10 REM PROGRAM TITLE: INTERCEPT 

20 CLEAR 200:RANDOM 

30 CLS:S55=31266 

40 PRINT CHR$(157);" INTERCEPT ";CHRS (174) 
50 PRINT 

60 INPUT“ INSTRUCTIONS (¥/N)";,Q5 

70 IF Q@$="N" OR QG$="NO" THEN 520 

80 PRINT 

90 PRINT" YOU ARE THE LEADER OF A SPECIAL" 
100 PRINT"GROUP KNOWN AS INTERCEPT." 

110 PRINT"YOU WILL HAVE TO IDENTIFY AND" 
120 PRINT" POSSIBLY DESTROY ANY ALIENS THAT" 
130 PRINT" VENTURE IN THE STERILIZED DOME” 
140 PRINT"WHERE ALL OF YOUR INHABITANTS" 
150 PRINT'LIVE. THE DOME IS SQUARE AND" 

160 PRINT"HAS A CROSSROAD WITHIN IT." 

i170 PRINT"AT THE LEFT AND RIGHT EDGE OF THE 

HORIZONTAL" 

180 PRINT"ROAD ARE TWO LASER CANNONS." 

190 PRINT"THESE CANNONS WILL FIRE ONLY" 

200 PRINT"WHEN THE CORRECT KEY SEQUENCE" 
210 PRINT'HAS BEEN ENTERED BY you." 

220 PRINT 

230 INPUT" PRESS ENTER PLEASE" ,Q& 

z40 CLS 

250 PRINT"AT RANDOM TIMES,DIFFERENT FIGURES" 
260 PRINT"WILL APPEAR AT THE CENTER OF" 
270 PRINT'THE VERTIGAL ROAD OF THE CROSS-" 
280 PRINT"ROADS. WHEN THE FIGURE IS AT THE" 
290 PRINT'CENTER IN LINE WITH YOUR LASERS" 
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300 PRINT"YOU MUST DECIDE WHETHERIT IS ALIEN" 

310 PRINT"OR FRIENDLY. IF YOU BELIEVE THAT" 

$20 PRINT"IT IS THE LATTER OF THE Two, DO" 

330 PRINT’ NOTHING; JUST LET IT PASS. IF" 

340 PRINT" YOU BELIEVE IT IS ALIEN, FIRE THE" 

3950 PRINT"LASER BY PRESSING THE RIGHT THEN" 

360 PRINT" THE LEFT ARROW KEYS, AND THEN 
FINALLY" 

370 PRINT" PRESSING THE SPACEBAR. YOU CAN" 

380 PRINT"HAVE THE LASER READY BEFOREHAND" 

390 PRINT" BY PRESSING THE ARROW KEYS TO" 

400 INPUT" PRESS ENTER PLEASE";Q3 

410 CLS 

420 PRINT"MAKE THE LASER READY. YOUR COM~" 

430 PRINT"MISSION WILL LAST 10 DAYS. IF* 

440 PRINT" YOU DESTROY 10 FRIENDLY IN-" 

450 PRINT" TRUDERS BEFORE THAT TIME, YOUR" 

460 PRINT'COMMISSION WILL BE TERMINATED" 

7/0 BRAN TICE EE ORE THEN tt 

480 PRINT'THE FINAL OBJECT ISTO DESTROY AS" 

490 PRINT"MANY ALIEN INTRUDERS AS YOU CAN" 

5900 PRINT"BEFORE YOUR COMMISSION EXPIRES." 

$10 PRINT 

320 PRINT 

$30 INPUT" YOUR LAST NAME, PLEASE";P$ 

$40 CLS 

$50 REM INTERCEPT CROSSROADS 

960 X$=STRING$(26,191) 

970 A=5:Je=il 

980 PRINT@A,X$ : PRINT@A+320,X$; 

390 PRINT@A+30,X$;:PRINT@A+350,X5; 

600 A=A+64: J=J41 

610 IF J>)=5 THEN 630 

620 GOTO 580 

630 AA=315:A$=5CHR$(157)+CHR$(183) 

640 AAS$=CHR$(187)+CHR$(174) 

650 PRINT@A,AS;:PRINT@AA,AAS; 

660 PRINT@58i,"LEADER: ";P$ 

670 PRINT@645,"PRESENT CONDITION: “ 

680 PRINT@709,"LASER STATUS: " 

690 PRINT@773,"DAYS TO GO ON COMMISSION: « 

700 REM GET FIGURES 

710 REM FRIENDLY 

720 FS(1)=CHR$(134):F8(2)=CHR$(139) 

730 FS (3)=CHR$(141):F$(4)=CHRS(153) 

740 FS(5)=CHR$(166) 

730 REM ALIEN 

760 A$(C1)=CHR$(135):A$(2)=CHR$(137) 
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770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
730 
940 
950 
960 
970 
980 
990 
1000 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1115 
1120 
1125 
1130 
1140 
1130 
1160 
1170 
1180 
1190 
1200 
i210 


A$(3)=CHR$(142):A5(4)=CHR$ (158) 
A§(5)=CHR$(173> 

REM DOUBLE SIZE 

FOR I=x1 TO 5 

FSCT)=FSC1)4F8 (1) 
ASCII) sAS CID 4AS CT) 

NEXT: KisA+2:K2=A+28 

REM DAYS / ALIEN /¢ FRIENDLY 
DA=10:AI=0:FI=s0:AD=0:FD=0:DF=0 
C$="QUIET ":CC$="ALERT" 
L$="CHARGING": LL$="READY Md 
PRINT@667,C8; 

PRINT@731,L5; 

PRINT@798,DA,; 

REM START LOCATION 

L=544 

REM CONDITION 

FOR T=1 TO 500 

T=RND(5> 

N=RND(5) 

IF N=I THEN 1000 

NEXT T 

GOTO 940 

REM ALERT / INTRUDER 

IF T¢=200 THEN T=T+1:GOTO 1005 
X¥=20:LF=1:XC=+0:DS=0:YU=0 
PRINT@667,STRINGS (6,32); 

FOR T=i TO 100:NEXT 


PRINT@667,CC$;:POKE 55,100:S=USR(0> 


FOR TT=1 TO 150:NEXT 

KX=X+1:1F X¢=#4 THEN 1020 
PRINT@667," INTRUDER", 

R=RND(2) 

IF R=2Z THEN 1110 
PRINT@L,FS(N);:GOTO 1115 
PRINT@L,A$(N); 

YUsYU+i 

IF E=0 THEN E=PEEK(15340) 

IF LF=4 THEN 1360 

MM=RND (2) 

IF MM=i AND YU¢C=70 THEN 1180 

IF Lt=32 THEN 1520 

L=L-64: PRINT@L+64,STRINGS$ (2,32); 
IF LF<=3 GOTO 1200 ELSE 1360 

IF L>#544 THEN MM=2:GOTO 1150 
L=L+64:PRINT@L~64,5TRING$ (2,32); 
IF E=32 AND LF=1 THEN 1240 

IF E=64 AND LF=2 THEN 1250 
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1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1360 
1370 
1380 
1390 
1400 
1410 


1445 


1417 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1520 
1925 
1330 
1540 
1550 
1560 
1565 
1570 
1575 
1380 
1590 
1600 
1610 
1620 
1630 
1640 
1630 
1655 
1636 
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TF E=i28 AND LF=3 THEN i266 
GOTO 1270 

LF=2:GOTO 1280 

LF=3:GOTO 1280 

LF=4:GOTO 1280 

E=0:GOTO 10970 

PRINT@837,"LASER KEY SEQUENCE:"; 
PRINT LF-~1:POKE SS,30:S=USR(0) 
IF LF=3 THEN 1320 

GOTO 1270 

PRINT@731,LL5; 

GOTO 1270 

REM FIRING 

IF R=i THEN 1390 
PRINT@L,A$(N);:GOTO 1400 
PRINTGL,FS(N); 
PRINT@A+2,STRING$(25,140); 
PRINT@AA-25 ,STRING$ (25,140); 

FOR TT=1 TO 30:POKE 55,15 :5=VUSR(0> 
NEXT 

IF PEEK(CA+153604+27)=32 THEN 1440 
GOTO 1650 

PRINT@731,L5; :LF=#1 
PRINT@837,"INDIRECT HIT ee 
PRINT@K1,STRINGS (25,32); 
PRINT@K2,STRINGS$ (26,32); 

FOR TT=1 TO 20:POKE §8,45 
S=USR(0) : NEXT 

GOTO 1090 

REM INTRUDER IN DOME 

IF YU¢=50 THEN 1190 

PRINT@L," "; 

PRINT@837," INTRUDER IS NOW IN DOME..." 
FOR TT=1 TO 30:POKE SS,90:S=USR(0) 
NEKT: PRINT@A+2,STRING$ (52,32); 
PRINT@837,CHR$(30);:PRINT@837,; 

FOR TT=1 TO 200:NEXT:POKE &S,175 
S=USR(0):I1F R=i THEN 1590 

GOTO 1610 

PRINT" INTRUDER: FRIENDLY..." 

GOTO 1620 

PRINT" INTRUDER: ALIEN..." 

FOR TT=i TO $00:NEXT 

IF XC¢=st THEN XC=XC+1:GOTO 1565 

GOTO 14670 

PRINT@837,"INTRUDER: DESTROYED..." 
FOR TT=1 TO 20:POKE SS,TT+10 
S=USR(0): NEXT 


1660 DS=1:PRINT@L," ";,:GOTO 1550 

1670 REM VARIABLE COUNT 

1680 PRINT@837,CHR$(30):PRINT@837, ; 
1690 IF DS=1 THEN 1810 

1700 IF R=1 THEN 1750 

1710 AI=AI+1 

1720 PRINT"YOU NOW HAVE";AI;,"ALIENS "; 


1730 PRINT" IN THE DOME." 
1740 GOTO i790 


1750 FI=FI+1 

1760 PRINT" YOU HAVE WISELY LET";FI;" 

1770 PRINT@901,; 

1780 PRINT“OF THE FRIENDS PASS." 

1790 REM CONT IF DAYS >=1 

1800 GOTO 19700 

1810 REM DESTROYED 

1820 IF R=1 THEN 1870 

1830 AD=AD+i 

1840 PRINT" YOU HAVE DESTROYED"; AD; "ALIENS." 

1850 GOTO 1900 

1870 FD=FD+i 

1880 PRINT FD;"FRIENDS HAVE NOW BEEN 
DESTROYED." 

1890 REM 

1900 REM DX FOR DAYS DECREASE 

1910 REM IF LESS THAN OR EQUAL TO 75 

1920 DX=RND( 100) 

1930 IF DX¢=75 THEN DA=DA—-1:DF=DF4+1 

1940 FOR TT=1i TO 1200:NERT 

1950 PRINT@837,STRING$(128,32),; 

1960 IF DA‘¢=0 OR FD>)=10 THEN 1980 

1970 FOR TT=i TO 20.POKE SS,20:5=USR(0) 

1975 NEXT:GOTO 860 

1980 PRINT@837,;:I1F FD)=1i0 THEN 2010 

1990 PRINT" YOUR COMMISSION HAS EXPIRED..." 

2000 GOTO 2020 

2010 PRINT" YOUR COMMISSION IS TERMINATED..." 

2020 FOR TT=1 TO 2000:NEXT 

2030 CLS 

2040 PRINT'DURING YOUR";DF;"DAY COMMISSION" 

2050 PRINT"YOUR RECORD IS AS FOLLOWS: ";P$,; 

2060 PRINT"," 

2070 PRINT"ALIENS ALLOWED TO PASSINTO DOME:",; 

2080 PRINT AI 

2090 PRINT"ALIENS DESTROYED: ",AD 

2100 PRINT" FRIENDLY INTRUDERS DESTROYED:",FD 

2110 PRINT 

2120 IF FD)=10 THEN 2240 
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2130 PRINT" YOUR COMMISSION HAS BEEN TERMED: " 

2140 IF AD>=1 AND AD<=5 THEN 2170 

2150 IF AD>=5 AND AD<=9 THEN 2190 

2160 IF AD>)=10 THEN 2210 

2170 PRINT" IMPROPER. POOR USE OF LASER." 

2180 GOTO 2270 

2190 PRINT"FAIR. LASER USED, BUT NOT 
ENOUGH. " 

2200 GOTO 2270 

2210 PRINT"EXCELLENT. ALL JUDGEMENTS WERE" 

2220 PRINT"MADE WITH UTMOST CAUTION." 

2230 GOTO 2270 

2240 PRINT'YOU HAVE DESTROYED"; FD; "FRIENDLY" 

22530 PRINT" INTRUDERS ";P$;" DO NOT ATTEMPT" 

2260 PRINT"TO RETURN TO THIS COMMISSION." 

2270 PRINT 

2280 PRINT'TERMINATION OF PROGRAM." 

2290 END 


Variables and Strings 


SS - Sound location 

P$ - User’s last name 

X$ - Crossroads graphics 

AJ, AA - For graphics 

A$, AA$ - Laser cannons, left and right 

F§(1-5) - Figures, friendly 

A$(1-5) - Figures, alien 

K1,K2 - For blanking laser after firing 

DA - Total days on commission 

Al - Alien intruders in dome 

FI - Friendly intruders in dome 

AD - Aliens destroyed 

FD - Friendly intruders destroyed 

C$, CC$,L$,LL$ - For status message printout 

L - Start location, intruder 

I,N - Random amounts which determine when an intruder enters the 
dome 

T - For-next loop, for above variables 

X - For message printout (flashing) 

LF - For noting if keys have been pressed in correct sequence 

XC - For message printout (flashing) 

DS - Intruders destroyed, alien or friendly 

YU - Counter, figure up at highest point 
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R - Random selection: alien or friendly 

E - Key closure by user 

S - USR call for sound output 

DX - Random variable. If less than or equal to 75 DA (days on 
commission) it will decrease by 1 

DF - For message indicating the number of days on commission 


Explanation of Program Lines 

Lines 10-520 display the general instructions. 

Line 530 has the user input his or her last name. 

Lines 540-620 create the graphics for the crossroads and the 
four large squares. 

Lines 630-690 establish the graphics for the lasers and display 
general messages. 

Lines 700-780 establish the strings for the friendly and alien 
figures. 

Lines 790-830 double the size of each figure. The variables set 
in line 830 are used for blanking out the laser after firing. 

Lines 840-900 set more variables and print messages and 
values on the video. 

Lines 910-920 determine the location the figure will start at. 

Lines 930-990 maintain the present condition until N= I. The 
program will then branch to an alert and complete alert will be 
sounded when T= 200 in line 1005. 

Line 1010 sets more variables before the figure is moved. 

Line 1020-1070 present the alert message with the appropriate 
sounds. 

Line 1080 randomly selects whether intruder is alien or 
friendly. 

Lines 1100-1110 print the figure that was selected. 

Line 1115 increases the counter YU by 1. 

Line 1120 tests the value of E for key closure. 

Line 1125 tests the value of LF. If LF is equal to 4, laser is 
ready to fire. 

Lines 1130-1190 move the figure up or down, depending on the 
value of MM. 

Lines 1200-1220 check the key closed with the value of LF. 
The only way the laser will fire is if all keys are pressed in the 
proper sequence. 

Lines 1230-1270 increases the value of LF with each key 
closure. If E is equal to none of the values specified (line 1230), it 
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will equal 0 (zero), and the movement of the figure will continue at 
line 1090. 

Lines 1360-1470 cause the firing of the laser with a sound 
output. 

Line 1420 tests the value of the peek location, to see if figure 
was hit. If argument is true, the program will branch to line 1650. 

Lines 1440-1500 display a message indicating that there was an 
indirect hit to the figure and produced a sound. The laser will then 
be blanked out while the figure continues moving. The laser is then 
ready to accept another key sequence to fire. All of this will take 
place in split seconds. 

Lines 1520-1640 display a message indicating that an intruder 
has come into the dome. 

Lines 1650-1660 display a message indicating that the alien has 
been destroyed. 

Lines 1670-1890 display messages indicating how many aliens 
are in the dome, how many the user destroyed, and how many of 
those destroyed were friendly. 

Lines 1900-1975 decrease the number of days in the user’s 
present commission if DX (random) is less than or equal to 75. Line 
1960 tests the values of both DA (days) and FD (friendly intruders 
destroyed). If either condition is met, the program is terminated. 

Lines 1980-2290 are used when the user’s commission has 
expired. All relevant figures are displayed, and the user’s perfor- 
mance 1s evaluated. If the user has destroyed 10 friendly intruders, 
he or she cannot come out ahead. 
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Appendix A 
Program Listings for the IBM PC 


The following listings have been created especially for use on the 
IBM PC. Note that the caps lock key must be in effect in order to use 
the games. Also note that you should enter YES or NO, rather than 
Y or N unless the prompt indicates otherwise. 


325 


Hold Time for the IBM PC 


REM program title:HOLD TIME 

CLEAR 350 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

10 V=VAL(V$) 

15 RANDOMIZE V 

100 WIDTH 40:COLOR 15,9,14 

105 CLS: KEY OFF 

125 PRINT TAB(15)"HOLD TIME":GOSUB 1050 

130 PRINT: INPUT "INSTRUCTIONS" ;Z$ 

135 IF Z$="N" OR Z$="NO" THEN CLS:GOTO 275 

140 PRINT:CLS 

145 PRINT "HOLD TIME...A MATTER OF HIGH OR" 
150 PRINT "LOW POINT TOTALS. THE COMPUTER'S" 
155 PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 
160 PRINT "VIDEO. DOWN THE LEFT AND RIGHT" 
165 PRINT "SIDES WILL BE ASTERISKS. THESE" 
170 PRINT "ARE YOUR LASERS. AT THE INSTANT" 
175 PRINT "YOU THINK THE CRAFT IS IN LINE" 

180 PRINT "WITH THESE, HOLD THE SPACE BAR" 

185 PRINT "YOUR LASERS WILL START MOVING" 

190 PRINT "TOWARD THE CENTER. THE COMPUTER" 
195 PRINT "CRAFT WILL ALSO CONTINUE TO MOVE." 
200 PRINT:GOSUB 1000:INPUT "PRESS ENTER TO CONTINUE" 

,&$:CLS: PRINT 

205 PRINT "YOU CAN 'HOLD' THE COMPUTER'S" 

210 PRINT "CRAFT FROM MOVING FOR AN AMOUNT" 
215 PRINT "OF TIME, ROUGHLY 20 SECONDS." 

220 PRINT "POINTS WILL RANGE FROM 1500 TO " 
225 PRINT "400, DEPENDING ON WHERE YOU" 

230 PRINT "DESTROY THE CRAFT (TOP OR BOTTOM)" 
235 PRINT "ON THE SCREEN. TIME LIMIT FOR THE" 
240 PRINT "ENTIRE RUN WILL BE JUST ABOUT" 

245 PRINT "FIVE MINUTES. THIS WILL BE NOTED" 
250 PRINT "AT THE LOWER RIGHT OF YOUR SCREEN" 
255 PRINT "COUNT STARTS AT 30." 

260 PRINT "TO 'HOLD' THE COMPUTER'S" 

265 PRINT "CRAFT, PRESS THE <CTRL> KEY":GOSUB 1025 
270 PRINT 

275 PRINT: INPUT "PRESS ENTER TO BEGIN" ,X$:CLS 
295 DEF SEG=8H40:POKE &H17,0:C$="<X>" 

300 REM outer graphics points 
305 Q$=STRING$(38, 42) :MR=8:MC=16:MMR=] :MMC=1 
310 G=0:PI=16:LOCATE 1,1:PRINT Q$:LOCATE 16,1: 
PRINT Q$ 


wre 
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315 
320 


325 
330 
333 
335 


340 
345 


350 
355 
356 
360 
361 
362 
365 
366 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 


416 
417 
418 


420 
422 
425 
427 
430 
500 
505 
510 
515 
520 
525 


LOCATE 2,34:PRINT "20";:FOR XR=2 TO 15:XC=1 
LOCATE XR,XC:PRINT LEFT$(Q$,1);:SOUND 10* 
(50—XR) ,1 
PRINT TAB(40) LEFT$(Q$,1);:GOTO 500 
IF MMR<>1 AND MMC<>1 THEN GOSUB 355 
NEXT 
LOCATE 1,1:PRINT STRING$(40,32);:LOCATE 16,1: 
PRINT STRING$(40, 32) 
FOR XR=2 TO 15:XC=1 
LOCATE XR,XC:PRINT CHR$(32);:PRINT TABC40)CHR$ 
(32);:SOUND 70-XR,3 
GOSUB 355:NEXT:GOSUB 355:GOTO 310 
LOCATE 16,35:PRINT ABS(INT(TT/60)-30); 
LOCATE MMR ,MMC:PRINT STRING$(5,32); 
TF MR<=2 OR MR>=15 THEN MR=7 
COLOR 10:LOCATE MR,MC:PRINT C$;:TT=TT+1:COLOR 15 
IF TT>=1800 THEN 830 
MMR=MR :MMC=MC:DEF SEG=&H40:W=PEEK (&H17) 
IF W=4 AND G<=20 THEN G=G+.4:GOSUB 770:RETURN 
XX=INT(RND*4+1):REM craft move 
ON XX GOTO 380,390,400,410 
REM left move 
MC=MC-INT(RND*5+1):GOTO 420 
REM right move 
MC=MC+INT(RND*5+1):GOTO 420 
REM up move 
MR=MR-1:GOTO 420 
REM down move 
MR=MR+1:DEF SEG=&HB800:IF PEEK(82)=32 THEN GOSUB 
700 "location of message from lines 745-762 


IF PEFK(146)=32 THEN GOSUB 700 "location of 
message from line 315 ; 

IF PEEK(1126)=32 THEN GOSUB 700: ‘Location of 
message from line 705 

IF PEEK(1186)=32 THEN GOSUB 700: "location of 


message from line 715 

IF MC<=3 THEN MC=40:MR=MR-1 
IF MR<=2 AND MC<=2 THEN 410 
IF MC>=35 THEN MC=1:MR=MR+1 
IF MR>=15 AND MC>=35 THEN 400 
SOUND 440,3:RETURN 

REM fire 

TF XR<=14 THEN W$=INKEY$ 
PI=PL-1:1F W$='"" THEN 330 
IF W$=" " THEN 525 

GOTO 330 

REM laser advance 
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530 IF XR>=13 AND XC>=30 THEN 330 

532 IF XR<=2 AND XC<=40 THEN 330 

535 DEF SEG=&HB800:HR=XR:HC=XC:H1=(HR-1)*80: 
H2=H1+78:UN=UN+1:S2=1000 

536 IF RP=1 THEN LOCATE 2,20:PRINT ABS(R-UN); 

540 DEF SEG=8HB800:POKE H1,32:POKE H2,32: 

545 IF PEEK(H1+2)<>32 OR PEEK (H2-2)<>32 THEN 570 

550 H1=H1+2:H2=H2~2:S2=S2-10:SOUND $2,3 

555 POKE H1,42:POKE H2,42 

560 IF ABS(H2-H1)<=4 THEN 900 

565 GOSUB 355:GOTO 540 

570 REM direct hit 

575 POKE H1,42 ; 

580 IF PEEK(H2-2)<>32 THEN 600 

585 POKE H2,32:H2=H2--8 

590 POKE H2,42 

595 FOR O=1 TO 2:SOUND 1000,3:SOUND 800, 3:NEXT: 
GOTO 580 

600 REM delete 

605 Z=1:POKE H1,32:POKE H2,32 

610 N=(MR-1)#*80+(MC~1)*2:S1=2200 

615 DEF SEG=&HB800:POKE N,32:POKE N+2,32 

620 POKE N+4,32 

625 J=2*INTC(RND*5) 

630 IF N+J-80>=158 THEN 640 

635 GOTO 660 

640 POKE N+J-80,42:POKE N+J+80-J,42 

645 FOR I=] TO J*10:NEXT 

650 POKE N+J-80,32:POKE N+J+80-J , 32 


655 GOTO 675 

660 POKE N+J+80,42:POKE N+J+80-J, 42 

665 FOR I=1 TO J*10:NEXT 

670 POKE N+J+80,32:POKE N+J+80~-J, 32 

675 IF Z<=7 THEN 685 

676 SOUND 1000,3 

680 IF RP=0 THEN GOTO 690 ELSE PI=PI+1:GOTO 695 
685 Z=Z+1:SOUND 220,3:GOTO 625 

690 Pl=PI+1:X$=X$4+"4" 

695 PP=PP+PI*100:GOSUB 700:GOTO 900 

700 A$="TOTAL POINTS: ":T$="TIME LAPSE:" 
705 FR=15:FC=3 

710 FOR I=1 TO LEN(A$) 

715 LOCATE FR,FC+25:PRINT(MID$(T$,1,1)); 
716 LOCATE FR,FC:PRINT MID$(A$,I,1); 

720 FC=FC+1: NEXT 

725 PRINT PP;:IF RP=1 THEN 735 

730 IF X$="" THEN RETURN 
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735 
740 
745 
750 
755 
760 
762 
765 
770 
775 
780 
785 
790 
795 
800 
805 
810 
820 
830 
835 
840 
845 
850 
855 
860 
865 
870 
875 
900 


905 
910 
915 
920 
925 
930 
935 
940 
945 
950 
955 
960 
965 
970 
975 
980 
985 
990 


REM reserve power 
R$="RESERVE POWER:" 
FR=2:FC=2 
FOR I=1 TO LEN(R$) 
LOCATE FR,FC:PRINT MID$(R$,1,1); 
FC=FC+1: NEXT 
IF RP=1 THEN X$=STR$(ABS(R-UN) ) 
PRINT X$; 
TI$="HOLD TIME:":REM hold time 
DEF SEG=8HB800:IF PREK(1186)<>32 THEN 790 
PR=2:FC=25:FOR T=1 TO LEN(TI$) 


LOCATE FR,FC:PRINT MID$(TI$,1,1);:FC=FC+1:NEXT 


LOCATE 2,36:PRINT INT(ABS(G-20)); 
RETURN 

REM time remaining 

IF RP=1 THEN DK=1:GOTO 910 

IF TT>=1800 THEN 830 

GOTO 300 

FOR TI=1 TO 1200:NEXT 

CLS: R=LEN(CX$) 

IF R=0 THEN 960 

PRINT "VERY WELL DONE...." 

PRINT "YOU HAVE ";R;"" UNITS OF" 
PRINT "RESERVE POWER...." 

PRINT "PRESS ENTER TO USE"; 

INPUT X$:TT=0:RP=1:UN=0 

CLS 

GOTO 300 

DEF SEG=&H40:POKE &H17,0:REM delete reserve 
units 

IF RP=0 THEN 330 

IF UN>=R THEN 925 

IF DK=0 THEN 330 

DK=0:GOTO 810 

REM finish 

FOR Ti=1 TO 1200:NEXT 

CLS 

PRINT "RESERVE POWER EXHAUSTED..... ie 
PRINT "TOTAL POINTS ACCUMULATED: ';PP 
PRINT 

GOTO 980 

PRINT "YOU HAVE DESTROYED NOTHING" 
PRINT "YOU HAVE NO RESERVE POWER." 
PRINT 

GOTO 945 

PRINT 

PRINT "END OF RUN." 

GOSUB 1025:END 
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1000 OUTERSPACE$="MN O1 LI F 02 C ML F L2 F P8 L8 A" 

1010 PLAY "MB XOUTERSPACE$;L1 G+ L2 G+ P8 L8 G+ Li A 
L2 A; 

1020 RETURN 

1025 OUTERSPACE$="MN O01 L1 F 02 C ML F L2 F P8 L8 A" 

1030 PLAY "MB XOUTERSPACE$;L1 B- L8 B- 03 DE L4 F G 
Ll A L2 A;" 

1040 RETURN 

1050 BACKGROUND$="MB MS 01 L4 FC FC FC FC" 

1060 PLAY "MB XBACKGROUNDS$;" 

1070 RETURN 
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Elevator for the IBM PC 


Ute 


10 

15 

20 

25 

30 

50 

60 

70 

80 

90 
100 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
355 
360 
370 
380 
390 


REM program title: elevator 
V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

CLS:KEY OFF:WIDTH 40:W$="$$#####. HH" 

DEF SEG=&HB800 

DIM F(60) ,F$(60) ,G$(60) ,GK(60) 

PRINT TAB(10)'##* ELEVATOR #3" 

PRINT 

BEEP:PRINT "INSTRUCTIONS REQUIRED (Y/N)"; 
INPUT I$:IF I$="N" THEN N=1 

BEEP:INPUT "FIRST NAME" ;N$ 

PRINT: IF N=1 THEN 230 

BEEP: INPUT "PRESENT OCCUPATION" P$ 

PRINT "YOU HAVE JUST BEEN FIRED AS A"; 

PRINT Pg$s"tt" 

PRINT "BUT, YOU ARE IN LUCK!! I HAVE JUST" 
PRINT "HIRED YOU TO BE AN ELEVATOR ATTENDANT" 
PRINT "IN MY COMPUTERIZED DEPARTMENT STORE." 
PRINT "YOUR JOB WILL BE SIMPLE, ";N$;". ALL" 
PRINT "YOU HAVE TO DO IS REMEMBER WHAT IS" 
PRINT "CONTAINED ON EACH OF SIXTEEN FLOORS" 
PRINT "SO THAT YOU CAN TAKE ALL OF MY CUSTOMERS" 
PRINT "TO THE RIGHT LOCATION..." 

PRINT 

PRINT 

REM what's on each floor? 

FOR I=2 TO 19:READ F$(1):NEXT 

TF N=1 THEN 370 ELSE GOSUB 2150:PRINT 

PRINT "I ALMOST FORGOT TO TELL YOU--~THE" 
PRINT "CUSTOMERS, WHEN STEPPING ONTO THE " 
PRINT "ELEVATOR, WILL TELL YOU WHAT THEY ARE" 
PRINT "SHOPPING FOR. ‘THEY WON'T TELL YOU " 
PRINT "AGAIN, BUT FOR EVERY CUSTOMER YOU PLACE" 
PRINT "ON THE RIGHT FLOOR, YOU'LL BE PAID " 
PRINT "$10.00. THAT WILL BE YOUR ONLY WAGE!" 
PRINT “CUSTOMERS WILL BE GETTING ON AND OFF THE" 
PRINT "ELEVATOR AT DIFFERENT STOPS, AND YOU " 
PRINT "WILL NEED TO REMEMBER THESE, TOO, " 
PRINT N$;"1" 

GOSUB 2150 

PRINT "HERE ARE THE FLOORS AND CONTENTS:" 

FOR I=2 TO 16 

SOUND 50*I+100,3:PRINT I;") ";F$(I); 
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395 IF I=8 THEN TT=I*400:PRINT:GOSUB 2190 

400 IF I>=2 AND I<=5 THEN 440 

410 IF I>=6 AND I<=10 THEN PRINT :GOTO 470 

420 IF I>=1l AND I<=14 THEN 450 

430 IF I>=15 AND I<=16 THEN 460 

440 PRINT " ";F$(17):GOTO 470 

450 PRINT " ";F$(18):GOTO 470 

460 PRINT " ";F$(19) 

470 IF RX=1 THEN RETURN ELSE NEXT 

475 REM variable rx for print elements 

480 FOR T=1 TO 6:PRINT:NEXT:TT=TT+2800 

490 GOSUB 2190:CLS:C=0:GK=0 

500 SOUND 440,3:PRINT "YOU SHOULD BE ALL SET, ";N$ 

510 TT=TT-1800:GOSUB 2190:RX=1 

520 REM get customers 

530 C=INT(RND*10+1) 

540 PRINT N$;" YOU NOW HAVE";C;"CUSTOMER(S)" 

550 PRINT "GETTING ONTO MY ELEVATOR.":FOR KO=1 TO 
C:SOUND KO*100,2:NEXT 


560 REM get c responses 

570 I=1 

580 REM floor number 

590 F=INT(RND*14+42) 

600 F(I)=F:I=I4+1:GK(F)=GK(F)+4+1 

610 IF I<=C THEN 590 

620 REM floor titles 

630 FOR I=1 TO C 

640 G$(I)=F$(F(I)) 

650 NEXT 

660 GOSUB 2190:PRINT 

670 PRINT "THE CUSTOMERS' DESTINATIONS:":FL=1 
680 PRINT: FOR I=FL TO C 

690 PRINT G$(I);""; 

700 F=F(1) 

710 IF F>=2 AND F<=5 THEN 760 

720 IF F>=11 AND F<=14 THEN 770 

730 IF F>=15 AND F<=16 THEN 780 

740 PRINT " FLOOR" 

750 NEXT:GOTO 790 

760 GOSUB 440:GOTO 750 

770 GOSUB 450:GOTO 750 

780 GOSUB 460:GOTO 750 

790 GOSUB 2150 

800 CLS 

810 SOUND 100,1:PRINT "PRESS <U> FOR <UP>" 
820 SOUND 200,1:PRINT "PRESS <D> FOR <DOWN>" 
830 PRINT "THEN ENTER THE FLOOR NUMBER" 
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840 
850 
860 
865 
868 
870 
880 
890 
895 
900 
905 
910 
915 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1085 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


NN=O:REM direction 

GOSUB 2160 

D$=A$:1F D$="U" THEN D$="UP":GOTO 870 
IF D¢é="D" THEN D$="DOWN" 

GOTO 870 

SOUND 100,1:PRINT "DIRECTION: ";D$ 
SOUND 200,1:PRINT "FLOOR NUMBER"; 
INPUT FR:SOUND 100+25*FR,3 

IF FR=1 AND TF=0 THEN 1280 

IF FR<1 OR FR>16 THEN 800 

IF FR=TF THEN 1280 

IF FR<TF AND D$s"UP" THEN 1260 

IF FR>TF AND D$="DOWN" THEN V=1:GOTO 1260 
GOSUB 2190:CLS:REM pause before start 
IF D$="UP" THEN 970 

IF D$="DOWN" THEN 1040 

BEEP:PRINT "SELECT A DIRECTION, ";N$;"!1" 
PRINT:GOTO 810 

REM up 

IF TF>=17 THEN 1030 

GOTO 1300 


SOUND 200,3:SOUND 100,4:PRINT "YOU ARE ON THE 


'.T$3" FLOOR, "3N$ 

PRINT "YOU CAN NOT GO ANY "SH$;"11" 
GOTO 960 

T$="TOP" :H$="HIGHER":GOTO 1000 
IF TF<=1 THEN 1060 

GOTO 1070 

T$="BOTTOM" :H$="LOWER":GOTO 1000 
REM down continued movement 
FS=P+640:NN=1 

IF FF>=58 AND FF<=64 THEN 1220 
POKE P,FF:SOUND 100*FF-4500,1 
FOR T=1 TO 40:NEXT 

POKE P,32:POKE P+2,32:P=P+80 

IF P<>FS THEN 1085 

REM continue if not on floor 

IF TF<>FR THEN 1160 

GOTO 1500 

FS=FS+560 

IF P>=1244 THEN 1190 

GOTO 1085 

POKE P,32:POKE P+2,32:P=280 
FS=P4+640:FF=FF-1:TF=TF-1 

GOTO 1085 

REM floors above 9 

POKE P,49:POKE P+2,FF-10:SOUND 100*FF-4500, 1 
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1240 
1250 
1260 
1265 


1270 
1275 
1280 
1290 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


1565 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


1640 


1645 
1650 
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IF NN=1 THEN 1100 

GOTO 1340 

PRINT "IF WANTING TO GO ";D$;", USE A" 
IF V=1 THEN V=0:PRINT "USE A LOWER NUMBER." 
:GOTO 1275 

PRINT "HIGHER NUMBER THAN THIS FLOOR." 
GOTO 1290 

PRINT "YOU ARE ON THAT FLOOR, "3N$;"1!" 
GOSUB 2190:GOTO 800 

REM up movement 

IF TF=0 THEN 1460 

FS=P-640:IF FS<=278 THEN FS=280 

IF FF>=58 AND FF<=64 THEN 1220 

POKE P,FF:SOUND 1OO*FF-4500, 1 

FOR T=1 TO 50:NEXT 

POKE P,32:POKE P+2,32:P=P-80 

IF P<>FS THEN 1325 

REM continue if not on floor 

IF TF<>FR THEN 1400 

GOTO 1500 

FS=FS-560 

IF P<=278 THEN 1430 

GOTO 1325 

POKE P,32:POKE P+2,32:P=1240 

FS=P-640: FFsFF+1:TF=TF+1 

GOTO 1325 

TF=1:P=920:FF=49 

FS=P—560:GOTO 1325 

REM on floor requested 

IF FF>=58 AND FF<=64 THEN 1530 

POKE P,FF:GOTO 1540 

POKE P,49:POKE P+2,FF-10 

FOR I=1 TO C 

IF FR=F(I) THEN 1570 


NEXT: IF GKCFR)>=1 THEN XX=1:PA=PA+1O*GK(FR): 
KG=KG+GK (FR) :GK(FR)=0 

GOTO 1600 

PA=PA4+10:KG=KG+1:GK(FR)=GK(FR)-1 

F(1)=0:XX=1 

GOTO 1560 

REM did customers want off here 


IF XX=0 THEN 1630 

XX=0:GOTO 1770 

PRINT N$;", NO CUSTOMERS WANTED TO GET OFF": 
SOUND 200,3:SOUND 100,4 

PRINT "ON THTS FLOOR...":NC=NC+1 

HJ=HJ+1:1IF HJ>=4 THEN HJ=0:FZ=1 

REM more customers stepping on 


1655 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


1780 
1785 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1865 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1965 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 


AA=INT(RND*2+1):IF JV=1 THEN AA=1:FZ=0 
IF FZ=1 OR FR=1 THEN AA=1:FZ=0 
IF AA=l1 THEN 1690 
GOTO 1730 
YU=INTCRND*5+1) : Y¥=C:C=C+YU:C2=YU 
IF C>=59 THEN JV=1:C=C-C2:GOTO 1730 
REM get destinations 
GOTO 1800 
REM continue if not finished 
KG=0:IF GK>=C THEN 1940 
GOSUB 2190 
GOTO 800 
FOR KO=1 TO KG:SOUND KO*100,2:NEXT:PRINT KG; 
"OF THE CUSTOMERS JUST" 
PRINT "STEPPED OFF MY ELEVATOR, "5 
PRINT N$;".":GOSUB 2700 
GK=GK+KG:GOTO 1650 
REM yy more destinations 
YU=ABS(C-YY):IF GK>C OR GK>=10 THEN 1940 
PRINT N$;", YOU JUST HAD"; YU;"MORE" 
PRINT "CUSTOMERS STEP ONTO THE" 
PRINT "ELEVATOR. THE DESTINATION(S):" 
KG=0:PRINT: FOR I=YY+1 TO C 
F=INT(RND*(16)+1) 

TF F=TF THEN 1860 

IF F=1 THEN F$(1)="GROUND":FZ=1 
F(1)=F:NEXT:REM floors 

REM title of floors 

FOR I=YY+l TO C 
G$(1)=F$(FC1)) :NEXT 
FL=YY+1 
GOTO 680 

REM stop/cont 

PRINT:PRINT "YOU HAVE NOW COLLECTED:" 
PRINT USING W$:PA:PRINT:GOSUB 2190 
PRINT:GOSUB 2500 

IF JV=1 OR GK>=C THEN 1990 

GOSUB 2190:GOTO 800:REM all not off 
PRINT:GOTO 2300 

REM data for floors 
DATA WOMENS ,MENS , CHILDRENS , INFANTS 
DATA TOYS ,CARPETS , COMPUTERS 
DATA APPLIANCES , FURNITURE , HARDWARE 
DATA HOBBY, AUTO, OFFICE 
DATA BATHROOM , BEDROOM 
DATA CLOTHES ,SUPPLIES , ITEMS 
REM data element 17 will be used 
REM with elements 2-5 
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2090 REM data element 18 will be used 
2100 REM with elements 11-14 

2110 REM data element 19 will be used 
2120 REM with elements 15 & 16 

2150 PRINT:PRINT "PRESS A KEY...'":SOUND 440,3 
2160 A$=INKEY$ 

2170 IF A$="" THEN 2160 

2180 RETURN 

2190 REM time loop 

2200 FOR T=1 TO TT:NEXT 

2210 GOTO 2180 

2300 REM continue? 

2310 PRINT "WOULD YOU LIKE TO TAKE ON" 
2320 PRINT "SOME MORE CUSTOMERS, '";N$;""2" 
2330 PRINT "YOUR TOTAL EARNINGS:"'; 

2340 PRINT USING W$;PA; 

2350 INPUT A$ 

2360 IF A$<>"Y" AND A$<>"YES" THEN 2400 
2370 TT=2000:JV=0:PRINT 

2380 PRINT "YOU ARE ON FLOOR ";TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT "END OF ELEVATOR" 

2420 END 

2500 REM point scale/pay deduction 

2510 IF NC<=0 THEN NC=0:RETURN 

2520 PRINT "YOU MADE";NC;"STOPS THAT WERE" 
2530 PRINT "NOT NECESSARY, ";N$;". You" 
2540 PRINT “WILL TAKE A DEDUCTION IN Pay" 
2550 PRINT "OF $20.00 FOR EACH ONE OF" 
2560 PRINT "THOSE STOPS, TOTAL"; 

2570 NN=NC*20:PRINT USING W$:NN 

2580 PRINT “LEAVING YOU"; 

2590 PA=PA-NN 

2600 PRINT USING W$;PA:GOSUB 2190 

2610 RETURN 

2700 REM any tips? 

2710 IF KG<=1 THEN RETURN 

2720 AA=INTCRND*2+1) 

2730 IF AA=1 THEN RETURN 

2740 TI=INT(RND*1004+1) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT "YOU'RE IN LUCK ";N$;", A” 


2780 PRINT "NICE CUSTOMER JUST GAVE " 
2790 PRINT "YOU A TIP OF"; 


2800 PRINT USING W$;TI 
2810 GOSUB 2190:RETURN 
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Farewell for the IBM PC 


We 


10 
15 
20 


25 
30 
35 
40 
45 
50 
25 
60 
65 
70 
75 
80 
85 
90 
95 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
205 
210 


REM program title: FAREWELL 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

WIDTH 40:KEY OFF:COLOR 1,14,11:CLS:PRINT TAB(12) 
"aie FAREWELL *#*'":GOSUB 1350 

PRINT 

INPUT "NUMBER PLAYING (1-10)"3A 

TF A<l OR A>1O THEN 25 

PRINT "THE ";A;'" PLAYERS'FIRST NAMES": PLAY "Ola" 
FOR I=1 TO A 

INPUT Q$(1):SOUND 50+20*I ,3:NEXT 

PRINT: U=1 

PRINT "ANY OF YOU NEED TO SEE" 

INPUT "THE INSTRUCTIONS"; X$ 

IF X$<>"y" AND X$<>"YES" THEN 210 

PRINT 

PRINT "READ CAREFULLY, IT COULD MEAN" 

PRINT "YOUR LIFE (OR THE GAME!!)..." 

PRINT "EACH PLAYER WILL SEE AND STUDY A" 

PRINT "MATRIX OF 6 BY 5 SQUARES (POSITIONS)" 
PRINT "THESE WILL RANGE FROM THE " 

PRINT "LETTERS A THROUGH Z WITH" 

PRINT "FOUR SPACES BLANK. TO PLAY:" 

PRINT "THE COMPUTER WILL SELECT FIVE" 

PRINT "POSITIONS AND PLACE COBRAS" 

PRINT "WITHIN EACH. THE COMPUTER WILL" 

PRINT "SHOW YOU WHERE THREE OF THE COBRAS ARE" 
GOSUB 1340:PRINT: INPUT "PRESS ENTER, PLEASE:";X$ 
CLS 

PRINT "NOW THE COMPUTER WILL SELECT A" 

PRINT "POSITION AND FLASH AN ASTERISK" 

PRINT “THERE. EACH PLAYER MUST ENTER FROM" 
PRINT "MEMORY THE NUMBER WHICH WAS IN THAT" 
PRINT "POSITION. IF CORRECT, THE PLAYER" 
PRINT "GAINS 1000 POINTS; IF INCORRECT, THE" 
PRINT "PLAYER LOSES 1000 POINTS. AND...IF YOU" 
PRINT "SELECT A POSITION WHERE THERE'S A " 

PRINT "COBRA...YOU'RE OUT OF THE GAME, DEAD! !" 
PRINT "SELECTION WILL CONTINUE FOR AS LONG AS" 

PRINT "EACH PLAYER WANTS OR UNTIL TWENTY-ONE" 
PRINT "POSITIONS HAVE BEEN ELIMINATED." 

GOSUB 1350:GOSUB 220:INPUT "PRESS ENTER TO 
START": X$ 
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215 CLS:GOTO 300 

220 DIM L$(31),PR(31) ,PC(31) ,L(31) 

225 REM letters? 

228 IF SL<>0 THEN PRINT "ARRANGING LETTERS..." 

230 L=65:I=1:PZ=1000 

235 L$(T)=CHR$(L):L(T)=1 

240 IF T=27 THEN 255 

245 IsI+1:L=L+1:GOTO 235 

250 GOTO 235 

255 REM sort letters randomly 

260 J=1 

265 N=INTC(RND*(I-1)+1) 

270 IF L(N)=0 THEN 265 

275 L$(J)=CHRS$(N+64) 

280 L(N)=0:J=J+1 

285 IF J=I THEN RETURN 

290 GOTO 265 

300 REM positions 

305 PC=5:PR=5:I=1:PL=PR+2:J=1:PK=PC 

310 PR(I)=PR:PC(1)=PC:L(1)=I 

315 PC=PC+6:T=I+1:J=J+1 

320 IF I=27 THEN 345 

325 IF J=7 THEN 335 

330 GOTO 310 

335 PR=PL:PL=PL+2:J=1:PC=PK 

340 GOTO 310 

345 REM the remaining four 

350 L$(T)=""":PR(I)=PR:PC(1)=PC:L(1)=1 

355 PC=PC+6:T=I+1:J=J+1 

360 IF J=7 THEN 370 

365 GOTO 350 

370 REM move the four blanks 

375 J=1:J=1:L=27 

380 N=INT(RND*2641) 

385 IF L(N)=0 THEN 380 

390 F$=L$(N):L$(N)=L$(L) 

395 L$(L)=F$:L(N)=0 

400 L=L+1:IF L=31 THEN 410 

405 GOTO 380 

410 REM now print letters 

415 CLS:FOR I=1 TO 30 

420 LOCATE PR(T),PC(1I):PRINT L$(1I):SOUND 10* 
C(ASC(L$(1I))),1:NEXT 

425 REM final graphics 

430 X=2 

435 FOR Y=5 TO 13 

440 LOCATE Y,X:PRINT CHR$(222) :NEXT 
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445 X=X+6 

450 IF X>=40 THEN 460 

455 GOTO 435 

460 FOR X=2 TO 38 

465 LOCATE Y,X:PRINT CHR$(223) :NEXT 

470 YsY¥-2 

480 IF Y<=3 THEN 490 

485 GOTO 460 

490 REM cobra positions/player 

495 C=1:LOCATE 15,5:PRINT "PLAYER: ";Q$(U); 

500 N=INT(RND*(I-5)+1) 

505 IF L(N)=0 OR L(N)=100 THEN 500 

510 CBR(C)=PR(N) :CBC(C)=PC(N) : F$=L$(N):C$(C)=F$ 

515 L$(N)=CHR$(42) :L(N)=100 

520 IF C=5 THEN 560 ELSE IF C<=3 THEN GOSUB 530 

525 C=C+1:GOTO 500 

530 XX=0 ‘define 3 (1 for computer) 

535 LOCATE PR(N),PC(N):PRINT L$(N);:FOR T=1 TO 
100: NEXT 

540 LOCATE PR(N),PC(N):PRINT " "3:FOR T=1 TO 50:NEXT 

545 LOCATE PR(N),PC(N):PRINT F$; 

550 IF XX<=0 THEN XX=XX+1:GOTO 535 

555 RETURN 

560 REM computer select/if not done 

565 SL=1 

575 IF SL>=22 THEN 1000 ELSE GOSUB 1200 

585 LOCATE 16,5:PRINT "I WILL SELECT A POSITION" 
:SOUND 220,1 

590 N=INT(RND*(L-1)+1):GOSUB 1240 

595 IF L(N)=0 OR L(N)=100 THEN 590 

600 F$=L$(N):IF SL=l THEN GOSUB 530 

605 C$=F$:NU=N:GOSUB 1300:GOSUB 1200 

610 LOCATE 16,5:PRINT "SELECT A POSITION BY LETTER 
ONLY,";:SOUND 220,1 

615 LOCATE 17,5:PRINT Q$(U); 

620 INPUT L$ 

625 T=1 

635 IF L$=L$(1) THEN 665 

645 T=I+l 

655 IF I>=31 THEN 675 

660 GOTO 635 

665 N=L:F$=L$:GOSUB 530 

670 GOTO 800 

675 REM cobra position or blank 

680 GOSUB 1200 

685 GOSUB 1200 

690 FOR I=1 TO 5 
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695 
705 
715 


725 
735 
745 
755 
765 
770 
800 
805 


810 
815 
820 
825 
830 
835 
840 
845 


850 
855 
860 
865 
900 
905 


910 
915 
920 
925 
930 
1000 
1005 
1010 


1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 


340 


IF L$=C$(1) THEN 735 
NEXT 
LOCATE 16,5:PRINT "YOU CANNOT SELECT A BLANK!" 
:SOUND 220,1 
GOSUB 1240:GOSUB 1200:GOTO 610 
GOSUB 1340:REM cobra 
LOCATE 16,5:PRINT "YOU'RE DEAD, "sQ$(U);" trtt 
LOCATE 17,5:PRINT "THAT IS A COBRA POSITION !11" 
LOCATE 18,5:PRINT '* FAREWELL **'":GOSUB 1240 
ZZ=1:GOSUB 1200:GOTO 1020 
GOSUB 1240:GOSUB 1200:IF L$<>C$ THEN 900 
GOSUB 1350:LOCATE 16,5:PRINT "CONGRATULATIONS " 
sQ5(U) 30 ea.” 
LOCATE 17,5:PRINT "YOU'VE JUST GAINED ";PZ; 
PRINT "POINTS!!" 
REM points/continue 
WCU) =W(U)+PZ 
LOCATE PR(NU) ,PC(NU):PRINT " ": 
LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 
GOSUB 1240:GOSUB 1200 
LOCATE 16,5:PRINT "YOU NOW HAVE ";W(U); 
"POINTS..." 
LOCATE 17,5:PRINT ",...CONTINUE (Y/N)"; 
INPUT X$:IF X$="N" THEN 1020 
SL=SL+1:L(NU)=0:L$(NU)=" " 
GOTO 575 
REM wrong position 
LOCATE 16,5:PRINT "WRONG POSITION,":Q$(U):SOUND 
220,1:SOUND 100,1 
LOCATE 17,5:PRINT "YOU ARE NOW MINUS"; PZ; 
PRINT "POINTS...'":GOSUB 1240 
GOSUB 1200:W(U)=W(U)-PZ 
LOCATE 19,25:PRINT "TOTAL POINTS: "SW(U); 
GOTO 610 
REM final/another player 
GOSUB 1240:GOSUB 1200 
GOSUB 1350:LOCATE 16,5:PRINT "THAT'S es 
3Q$(U);". YOU'VE" 
LOCATE 17,5:PRINT "REACHED THE LIMIT..." 
LOCATE 18,5:PRINT "PRESS ENTER, PLEASE:"; 
INPUT X$:CLS 
IF ZZ=1 THEN ZZ=0:GOTO 1040 
T(U)=W(U) 
U=U+1:IF U>A THEN 1100 
PRINT Q$(U);", YOU ARE NEXT..." 
PRINT "PRESS ENTER WHEN READY:"; 
INPUT X$:CLS 


1060 GOSUB 225:GOTO 300 

1100 REM final/score results 

1105 PRINT "PLAYERS AND POINTS:" 

1110 FOR I=1 TO A 

1115 PRINT Q$(1)3": TOTAL POINTS ,";TCI) 
1120 NEXT 

1125 PRINT 

1130 PRINT "PROGRAM TERMINATED..." 

1135 END 

1200 REM clear print area 

1210 LOCATE 16,5:PRINT STRING$( 34,32) 
1220 LOCATE 17,5:PRINT STRING$( 34,32) 
1230 RETURN 

1240 REM time delay 

1250 FOR TI=1 TO 2000:NEXT 

1260 RETURN 

1300 REM flash selection course 

1305 FOR I=1 TO NU 

1310 IF L$(I)="*" OR L$(I)s" " THEN 1330 
1315 LOCATE PR(I),PC(I):PRINT "*";:SOUND 1000,1 
1320 FOR TI=1 TO 20:NEXT TI 

1325 LOCATE PR(1),PC(1I):PRINT L$(I);:SOUND 1500,1 
1330 NEXT I 

1335 RETURN 

1340 PLAY "MB O3L8CDL4E-DL8CP8CDE-GDE-C 
1345 RETURN 

1350 PLAY "MB MLL801AB-02D--DD-01B~02L2D-—" 
1355 RETURN 
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Mind Invasion for the IBM PC 


10 REM Program Title: Mind Invasion--IBM PC 
20 REM Instruction Routine 
25 WIDTH 40 
30 CLEAR 500:COLOR 2,0,14:FL=1:GOSUB 1500: J=1:TR=1 
40 REM outer graphics 
50 DEF SEG=&HB800: X=1280:Y=1358:K=219: PN=1:TX=Y-600: 
TL=TX 
60 POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
70 X=(X-80+2) :Y=(Y~-80)-2: Je=J+1 
80 IF J<>8 THEN 60 
90 REM goto character print if done 
100 IF J=16 THEN N=42:POKE TX+1,4:POKE TX,2:GOTO 140 
110 POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
115 IF PN=] THEN A(1)=X:A(2)=Y:L=A(1):R=A(2) 
120 X=(X-80)-2:Y=(Y-80)+2 
130 J=J+1:PN=2:GOTO 100 
140 LOCATE 23,17:PRINT “YOUR POINTS="; 
150 PI=0 
160 GOSUB 910 
170 LOCATE 22,1:PRINT "PLAYER —-";N$(PZ) 
200 REM character graphics variables 
210 J=7:E=8:ET=1:F=8:FT=33:T=1:E2=sE: ET2=ET:F2=F:FT2 
=FT:TC=1:TCT=1:BC=15:BCT=20 
220 KY=1:G=20:GOSUB 380:IF TI>=3 THEN 880 
230 LOCATE E,ET:PRINT W$;:LOCATE F,FT:PRINT W$3:E1 
=E+]:ETISET: Fl=F+1:FT1=33 
240 T=T+1:GOSUB 350 
250 LOCATE E,ET:PRINT L$;:LOCATE F,FT:PRINT L$; 
260 IF T>2 THEN J=J-1:GOSUB 380:GOSUB 350 
270 COLOR 14:LOCATE (E-1),ET:PRINT W$:LOCATE E1,ETI: 
PRINT W$:COLOR 2 
280 LOCATE(F-1),(FT-1):PRINT W$:LOCATE F1,FT1: 
PRINT W$ 
290 LOCATE (E-1) ,ET:PRINT L$;:LOCATE E1,ET1:PRINT L$; 
300 LOCATE (F-1),(FT-1):PRINT L$; :LOCATE F1,FT1:PRINT 
L$;:GOTO 600 


310 E=E-1:F=F~1:FT=FT~1:E1=E2+2:Fl=F2+2:FT1l=FT2+2 
320 E2=E2+1:F2=F2+1:FT2=FT2+1 :T=T+1 

330 REM reset variables if done 

335 GOTO 700 

340 IF T>8 THEN 200 ELSE KY=KY+1:GOTO 260 

350 REM for characters clear 

360 L$=STRING$(J, 255) :Q$=STRING$(G,42) 

370 Q1$=STRING$(G, 32) :RETURN 

380 W$=STRING$(J,N) 
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390 RETURN 
400 X$=INKEY$ ‘user movement 


405 TI=TI+1 "limit count without movement 
410 IF LEN(X$)=0 THEN 340 
420 TI=1 ‘placement/limit/reset 


425 IF LEN(X$)=2 THEN Y$=MID$(X$,2,1) 

430 IF ASC(Y$)=72 THEN 460 

440 IF ASC(Y$)=80 THEN 490 

450 GOTO 340 

460 POKE TX ,32:TX=TX-80 

470 IF ABS(TX-TL)>160 THEN TX=TX+80 

480 POKE (TX+1),4:POKE TX,2:SOUND 880,1:UCKY)=ASC 
(Y$):GOTO 340 

490 POKE TX,32:POKE TX+1,2:TX=TX+80 

500 IF ABS(TX-TL)>160 THEN TX=TX-80 

510 POKE (TX+1),4:POKE TX,2:SOUND 880,1:U(KY)=ASC 
(Y$):GOTO 340 

600 REM top/bottom characters 

610 COLOR 14:LOCATE TC,TCT:PRINT Q$; 

620 LOCATE BC,BCT:PRINT Q$::COLOR 2:FOR X=2000 TO 
1900 STEP ~—50:SOUND X,1:NEXT 

630 LOCATE TC,TCT:PRINT Q1$; 

640 LOCATE BC,BCT:PRINT Q1$; 

650 TC=TC+1:TCT=TCT+1 :BC=BC~1:BCT=BCT-1 

660 REM replace user character 

670 IF PEEK(TX)=32 THEN POKE TX+1,4:POKE TX,2:SOUND 
300,1 

680 GOTO 310 

700 REM crusher movement 

705 POKE A(1)+10,32:POKE A(2)-—10,32 

710 POKE L,32:POKE R,32 

720 IF ABS(L-~R)=2 THEN 750 

730 L=L+8:R=R~8 

740 POKE L,K:POKE (L+10),K:GOTO 400 

750 L=A(1):R=A(2):GOTO 800 

760 POKE L,K:POKE (L+10),K:PLAY "MB XMIND$;" 

770 POKE R,K:POKE (R-10),K 

780 REM recycle 

790 GOTO 400 

800 REM crushed? 

810 IF PEEK(TX)=32 THEN 840 

820 IF TI<=2 AND UCKY)<>U(KY-1) THEN PI=PI+ABS 
(TX-TL):GOSUB 910 

830 GOTO 760 

840 REM yes...crushed 

850 LOCATE 17,1:PRINT "<<CRUSHED>>"; 

855 PLAY "MB 04L32BGBGBGBGBGBGBGBG" 
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860 POKE TX, 32 
870 FOR LX=1 TO 2000:NEXT:GOTO 950 
880 REM limit reached/no movement 
890 TI=0 
900 PI=PI-ABS(TL-TX):GOSUB 910:GOTO 920 
910 LOCATE 23,31:PRINT PI; :RETURN 
920 GOTO 230 
950 REM player advance/end 
960 TP(PZ)=PI:PI=0:PZ=PZ+1 
970 IF PZ>PL THEN GOSUB 1200:TR=TR+1:PZ=1 
980 IF TR>=3 THEN GOSUB 1240:GOTO 1010 
990 FOR LX=1 TO 14:PRINT:NEXT 
1000 GOSUB 2100:CLS:J=1:GOTO 40 
1010 REM end/high point winner 
1020 T=0:H=1:IF H=PL THEN 1120 
1030 IF FT(H)>=FT(H+1) THEN 1080 
1040 FTSFT(H) :FTCH)=FT(H+1) 
1050 FTCH+1)=FT:N$=N$(H) :N$(H)=N$(H+1) 
1060 N$(H+1)=N$ 
1070 T=1 
1080 H=H+1 
1090 IF H<PL THEN 1030 
1100 IF T=1 THEN 1020:REM not refined 
1110 GOTO 1300 
1120 CLS 
1130 PRINT 
1140 PRINT "YOUR TOTAL POINTS, AFTER 2 ROUNDS="'; 
TP(H)+WE(H) 
1160 GOTO 1390 
1190 REM tally first round points 
1200 REM tally first round points 
1210 IF TR>=2 THEN RETURN 
1220 FOR I=1 TO PL 
1230 WE(I)=TP(1) :NEXT:RETURN 
1240 REM final tally 
1250 FOR I=1 TO PL 
1260 FTICI)=WE(I)+TP(T) 
1270 NEXT 
1280 RETURN 
1300 REM top winner(more than 1 player) 
1310 CLS 
1320 I=1 
1330 PRINT "THE TOP WINNER: ";N$(1);" WITH "; 
1340 PRINT FT(1);" POINTS." 
1350 PRINT "FOLLOWED BY:" 
1360 FOR I=2 TO PL:PRINT N$(I);" WITH "; 
1370 PRINT FT(1);"POINTS." 
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1380 
1390 
1400 
1410 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


NEXT 
PRINT 


PRINT "END OF PROGRAM RUN." 


END 


REM instructions 

T$=" MIND INVASION " 

T=10:CLS 

FOR LX=1 TO LEN(T$) 

PRINT TABCI) MID$(1$,LX,1);:SOUND 300,1 
FOR Y=1 TO 50:NEXT Y 

T=I+1:NEXT LX 

FOR Y=1 TO 1000:NEXT 


PRINT 


INPUT "NUMBER OF PLAYERS (1-10)";PL:SOUND 200,2 
IF PL<=0 OR PL>=11 THEN 1590 


PRINT 


"PLAY OUTLINE NECESSARY?"; 


INPUT X$ 


IF X$= 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
CHR$(2 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT: 
PRINT 


"N" OR X$="NO" THEN 2040 


"EACH OF YOU ";PL;" PLAYERS WILL 
"EXPERIENCE A NEW FORM OF MIND" 
"INVASION. THE OBJECT OF THE GAME:" 
"KEEP PLAYING AS LONG AS POSSIBLE" 
"WITHOUT GETTING °CRUSHED'." 

"YOU, THE USER, WILL BE LOCATED AT" 
"THE CENTER OF THE VIDEO DISPLAY" 
"LOOKING LIKE THIS:";:COLOR 4:PRINT 
);:COLOR 2:PRINT " YOUR" 

"ONLY MOVEMENTS WILL BE STRAIGHT" 
"UP OR STRAIGHT DOWN, INDICATED" 
"BY THE <UP ARROW> AND <DOWN" 
"ARROW> KEYS." 

GOSUB 2170 

"STRIKE A KEY TO CONTINUE" 


X$=INKEY$:1IF X$=""THEN 1790 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"TO TAKE ADVANTAGE OF ANY POINTS" 
"YOU MUST BE CONSTANTLY MOVING," 

"UP OR DOWN. THE OUTER BOUNDARIES" 
"OF THE VIDEO WILL CONTAIN" 
"FLASHING ASTERISKS, FOR CONFUSION." 
"ALSO CONTAINED IN THOSE BOUNDARIES" 
"ARE BLOCKS, TWO OF WHICH," 

"WITHOUT NOTICE, WILL MOVE VERY" 
"QUICKLY TOWARD YOUR LOCATION." 

"IF YOU ARE SUCCESSFUL IN" 

"MOVING OUT OF THE WAY, YOU" 
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1920 
1925 
1930 
1940 
1950 
1960 
1970 
1980 
1985 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


2080 
2090 
2100 
2105 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


PRINT "CAN CONTINUE PLAYING. IF, ON" 

GOSUB 2170:FOR LX=1 TO 5000:NEXT 

PRINT "THE OTHER HAND, YOU ARE CRUSHED" 
PRINT "PLAY WILL ADVANCE TO THE NEXT" 

PRINT "PLAYER. THIS IS ALSO TRUE IF" 

PRINT "YOU COLLIDE WITH THE BLOCKS." 

FOR LX=1 TO 2000:NEXT 

GOSUB 2170:PRINT "STRIKE A KEY TO CONTINUE" 
X$=INKEY$:IF X$="" THEN 1985 ELSE PRINT 
PRINT "THE GAME WILL TERMINATE WHEN EACH" 
PRINT "PLAYER HAS PLAYED A TOTAL OF TWO" 
PRINT "ROUNDS. THE PLAYER FINISHING WITH" 
PRINT "THE HIGHEST POINTS WILL BE THE" 
PRINT "WINNER." 

PRINT 

PRINT "NOW ENTER THE FIRST NAMES OF" 

PRINT "THE ";PL;" PLAYERS:" 

FOR I=1 TO PL:PRINT "PLAYER #";1;:INPUT N$(I): 
SOUND 300, 1 

NEXT 

PZ=1 

PRINT N$(PZ);" WILL NOW PLAY. STRIKE" 
IF PZ>=2 OR TR>=2 THEN 2150 

PRINT "A KEY WHEN READY:" 


X$=INKEY$:IF X$=""THEN 2120 

CLS 

RETURN 

PRINT "THE ENTER KEY WHEN READY"; 


INPUT X$:TI=0:RETURN 


MIND$="MNOICFC+F4+DGD+G+":IF FL=1 THEN GOTO 2200 


PLAY "T60 XMIND$;T120 XMIND$;":FL=1 

RETURN 

PLAY "T240 L4XMIND$;L8 XMIND$;XMIND$5XMIND$; 
XMIND$;" 


2210 RETURN 
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Knights for the IBM PC 


1 
5 
10 
15 


20 
25 
30 
35 
40 
45 
50 
55 
60 
65 


70 
75 


80 
85 


90 
95 
100 
105 


110 
115 
120 


125 
130 


135 
140 


145 
150 


155 


CLEAR 700 

CLEAR 700 

REM program title KNIGHTS 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

HORN$="MB T100 02 L16E~ L4B- L16E- L4B-" 

KEY OFF:WIDTH 80:COLOR 1,11,14:CLS 

PRINT TAB(30)">>>>KNIGHTS<<<<":PLAY "XHORN$;" 
PRINT 

PRINT "INSTRUCTIONS NEEDED"; 

INPUT T$ 

IF T$="N" OR T$="NO" THEN 205 

PRINT "THERE ARE TEN KNIGHTS IN A CASTLE. 

THESE ARE KNIGHTS WHO HAVE DONE WRONG" 

PRINT 

PRINT "AND WERE IN A DUNGEON WAITING TO HAVE 

THEIR HEADS REMOVED." 

PRINT 

PRINT "THEY HAVE ESCAPED THE DUNGEON AND CAPTURED 

THE CASTLE. THEY HAVE WITH THEM" 

PRINT 

PRINT "EIGHT HOSTAGES." 

PRINT 

PRINT "THE KING WILL NOT MEET THE CONDITIONS 
THEY HAVE SET FORTH, SO THEY vow" 

PRINT 

PRINT "TO FIGHT TO THE DEATH" 

PRINT: INPUT "PRESS <ENTER> TO CONTINUE" ,T$:PLAY 
"XHORN$;" 

PRINT 

PRINT "YOU ARE THE SHARPSHOOTER SELECTED BY THE 
KING TO TERMINATE " 


PRINT 
PRINT “THESE KNIGHTS. YOU ARE EQUIPPED WITH A 


HIGH-POWER CROSSBOW." 

PRINT 

PRINT "ALONG THE CASTLE WALLS ARE FIVE WINDOWS. 
EACH TIME A FIGURE" 

PRINT 


160 PRINT "APPEARS AT A WINDOW YOU'LL HAVE THE 


OPTION TO FIRE (BY STRIKING" 


165 PRINT 
170 PRINT "THE SPACE BAR) OR NOT. THE FIGURE THAT 
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APPEARS AT A WINDOW" 

175 PRINT 

180 PRINT "COULD BE ONE OF THE HOSTAGES; BUT IF IT 
IS A KNIGHT AND YOU DON'T" 

185 PRINT 

190 PRINT "FIRE, YOU COULD BE HIT..." 

195 PRINT 

200 INPUT "PRESS <ENTER> TO BEGIN" ,T$:PLAY "XHORNS;" 

205 CLS:K=10:HD=8:CR=10 

210 SCREEN 1,0 ‘draw castle 

215 COLOR 9,0 

225 LINE (20,60)~(290, 148) ,3,BF 

230 FOR X=20 TO 280 STEP 20 

235 LINE (X,50)-((X+10),60) ,3,BF 

240 NEXT X 

245 LINE (20,40)-—(90,60) ,3,BF 

250 LINE (220,40)-(290,60),3,BF 

255 X=20 

260 FOR Y=X TO (X+60) STEP 20 

265 LINE (Y,30)-((¥+10),40),3,BF 

270 NEXT Y 

275 X=X+200:1F X<=220 THEN 260 

280 FOR X=55 TO 255 STEP 200 

285 LINE (X,10)-(X,40) ,3 

290 NEXT X:PLAY "O3L8CL12D-E-D-L8CP1602L16A-L4B_" 

295 FOR X=56 TO 256 STEP 200 ‘draw flags 

300 LINE (X,10)-(X,20) ,2 

305 LINE -((X+20),15),2 

310 LINE -(X,10),2 

315 PAINT ((X+2),15),2 

320 NEXT X 

325 Z=70:Y=40:FOR X=4 TO O STEP ~2 ‘draw and 
save windows 

330 LINE ((¥-X) ,(Z-X) )—((Y+20+X) ,(Z4+404X)) ,(X/2) , BF 

335 NEXT X 

340 DIM WINDOW( 340) :GET(36,66)-~(64,114) , WINDOW 

345 PI=3.14159:CIRCLE(50,110),7,3,-2*PI,-~1"PI:PAINT 
(50,109) ,3 ‘draw and save figure 

350 CIRCLE(50,96) ,7,3:PAINT(50,96) ,3 

355 DIM FIGURE( 340) :GET(36,66)-(64,114) , FIGURE 

357 DIM HOLE( 34) :GET(290,160)~(300,170) , HOLE 
"hole for arrows that miss 


360 FOR X=36 TO 282 STEP 50 ‘window placement 
365 PUT(X,66) ,WINDOW, PSET 


370 NEXT X 


590 REM get a window 
600 W=INT(RND*5+1) 
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610 WI=W*50-14 

615 BLANK$=STRING$(119,0) 

620 REM pause before placing 

630 PA=INTCRND*700+1):IF PA<=250 THEN 630 

640 FOR PU=1 TO 700 

650 IF PU=PA THEN 670 

660 NEXT:GOTO 630 

670 PUT(WI,66),FIGURE, PSET 

680 REM sharpshooter to fire 

690 FOR TI=1 TO 150 

700 W$=INKEY$ 

710 IF W$<>""THEN 730 

720 NEXT 

730 REM knight or hostage 

740 H1=INT(RND*5+1) :H2=INT(RND*5+1) :H3=INT(RND*5+1) 

750 H=ABS(H1—-H2-H3) 

760 PUTC(WI,66) ,WINDOW, PSET 

762 IF H=W THEN 1240 

765 IF HD<=0 THEN 840 

770 IF H<=O0 OR H>=5 AND TI<=99 THEN 790 

780 GOTO 840 

790 REM a hostage 

800 IF TI>=112 THEN 880 

810 SOUND 300,2:SOUND 100,3:LOCATE 20,1:PRINT 
"YOU HAVE JUST KILLED ONE" 

820 PRINT "OF THE HOSTAGES, TURKEY!!" 

830 GOTO 970 

840 IF TI>=150 THEN 880 

850 FOR SO=400 TO 1000 STEP 50:SOUND SO,1:NEXT: 
LOCATE 20,1:PRINT "GOOD SHOOTING, YOU HAVE" 

860 PRINT "ELIMINATED ANOTHER KNIGHT!" 

870 GOTO 940 

880 IF H>=O AND H<=2 THEN 1020 

890 FOR SO=1000 TQ 400 STEP -50:SOUND SO,1:NEXT: 
LOCATE 20,1:PRINT "THINK FASTER! YOU HAVE BEEN" 


900 PRINT "HIT BY ONE OF THE KNIGHTS!!" 
910 HK=HK+1 

920 IF HK>=6 THEN 1060 

930 GOTO 990 

940 K=K-1:PRINT K;" KNIGHTS REMAIN." 
950 IF K<=0 THEN 1120 

960 GOTO 990 

970 HD=HD-1 

980 IF HD<=0 THEN 1180 

990 FOR TX=1 TO 3000:NEXT 

1000 REM clear print area 

1010 LOCATE 20,1:PRINT BLANK$;:GOTO 14000U HAVE BEEN" 
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1020 
1030 


1040 
1050 
1060 
1080 


1090 
1100 
1110 
1120 
1140 
1150 
1160 
1170 
1180 
1200 


1210 
1220 
1230 
1240 
1245 
1250 
1270 
1290 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
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IF HD<=0 THEN 890 

PLAY "XHORN$;":LOCATE 20,1:PRINT "GOOD THING 
YOU DID NOT FIRE;" 

PRINT "THAT WAS A HOSTAGE! !" 

GOTO 990 

REM hit enough 

PLAY "MB T60 O2DL8D.LI6DL4DL8FEEDD.L16C+L4D" 
:LOCATE 20,1:PRINT "YOU HAVE BEEN HIT "3HK; 
" TIMES." 

PRINT "YOUR BODY CANNOT STAND" 

PRINT "ANY MORE. YOU ARE DYING..... M 

GOTO 1530 

REM knights killed 

LOCATE 20,1:PRINT "YOU HAVE DESTROYED ALL TEN" 
PRINT "KNIGHTS. THE KING WILL BE" 

PRINT "PROUD OF YOU, MY FRIEND...." 

GOTO 1530 

REM hostages gone 

LOCATE 20,1:PRINT "YOU HAVE KILLED ALL EIGHT" 
IMES ." 

PRINT "OF THE HOSTAGES, YOU TURKEY!!" 

PRINT "THE KING WILL HAVE YOUR HEAD! !" 

GOTO 990 

REM complete miss 

IF TI>=100 THEN 765 

XX=INT(RND*260+20) 

YY=INT(RND*38+110) 

PUT(XX,YY) , HOLE, PSET 

LOCATE 20,1:PRINT "YOU'LL HAVE TO DO BETTER" 
:PLAY "T120 01 B-D" 

PRINT "THAN THAT, YOU'VE MISSED COMPLETELY! !" 
GOTO 990 

REM crossbow rounds 

REM crossbow rounds 

PRINT 

PRINT "YOU HAVE ";CR;" ARROWS LEFT TO FIRE." 
RETURN 

REM enough arrows left 

REM enough arrows left 

IF TI<=99 THEN CR=CR-1 


GOSUB 1350:IF CR<=0 THEN 1440 
GOTO 590 

REM end 

FOR TX=1 TO 2000:NEXT 

CLS 

PRINT "YOU HAVE EXHAUSTED YOUR" 


PRINT "SUPPLY OF CROSSBOW ARROWS." 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1615 
1620 


IF K<>0 THEN 1510 

GOTO 1530 

PRINT "THERE ARE STILL ";K;" KNIGHTS " 
PRINT "IN THE CASTLE..." 

PRINT 

IF HD<=0 THEN 1560 

GOTO 1600 

PRINT "YOU ARE A BLUNDERING SHARP-" 
PRINT "SHOOTER, YOU IDIOT!!" 

PRINT "YOU HAVE HIT AND KILLED ALL" 
PRINT "EIGHT HOSTAGES!!!" 

PRINT: FOR T=1 TO 5000:NEXT 

PRINT "END OF RUN." 

SCREEN 0,0,0 

END 
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injection for the IBM PC 


352 


CLEAR 100 

REM program title: INJECTION 
V$=RIGHT$(TIME$,2): 'use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

COLOR 5,7,3:WIDTH 40:KEY OFF:CLS 

PRINT TAB(15)"> INJECTION <" 

PRINT 

INPUT "NUMBER TO PLAY (1-10)";U 

IF U<l OR U>10 THEN 45 

PRINT "THE INITIALS OF PLAYERS:" 

FOR T=1 TO U:INPUT K$(T) 

NEXT: PRINT: PL=1:CLS 

PRINT "YOU ARE HEAD OF A LABORATORY" 
PRINT "IN WHICH YOUR COMPANY IS IN THE" 
PRINT "PROCESS OF INJECTING CUBES WITH" 
PRINT "A SOLVENT, TO DESTROY A COLONY" 
PRINT "OF BACTERIA WHICH CANNOT BE" 
PRINT "CONTROLLED. THESE CUBES WILL" 
PRINT "RACE ACROSS THE SCREEN FIVE AT A" 
PRINT "TIME. TO INJECT A CUBE, HOLD" 
PRINT "THE <UP ARROW> KEY. THE INJECTED" 
PRINT "SOLVENT MUST STRIKE THE OPENING" 
PRINT "AT THE BOTTOM OF THE CUBES." 
PRINT 

PRINT 

INPUT "PRESS <ENTER> TO CONTINUE";L 

CLS: PRINT 

PRINT "EACH TIME A CUBE IS INJECTED," 
PRINT "THE NUMBER RACING ACROSS THE" 
PRINT "SCREEN WILL DECREASE BY ONE, BUT" 
PRINT "NO FEWER THAN THREE WILL RACE" 
PRINT "ACROSS AT ONE TIME, A TOTAL" 
PRINT "OF TEN CUBES MUST BE INJECTED." 
PRINT "IF AT ANY TIME YOU MISS AN" 

PRINT "INJECTION, THE NUMBER OF CUBES WILL" 
PRINT "INCREASE BY ONE. THE INJECTION" 
PRINT "MACHINE CAN BE MOVED LEFT OR" 


PRINT "RIGHT, WITH THE LEFT AND RIGHT" 
PRINT "ARROW KEYS. GOOD LUCK." 

PRINT 

INPUT "PRESS ENTER TO BEGIN",L 

CLS 

REM the cubes 


225 SCREEN 1,0:COLOR 0,1:JJ=0 

230 DIM ALL(1992):DIM INJECTOR(804) 

235 DIM BLANK( 228) :GET(0,0)-(30, 28) , BLANK 

240 LINE(2,2)-(28,26),2,BF: 

245 LINE(11,20)~(15, 26) ,3,B:PAINT(12,21),3:DIM CUBE 
(228) :GET(0,0)-(30, 28) , CUBE: PUT(0,0) , BLANK , PSET 

260 REM setting up graphics 

270 FOR X=5 TO 205 STEP 50 

280 PUT(X,60) ,CUBE , PSET 

290 NEXT 

300 GET(0,60)-(235,88) ,ALL:DIM SERUMBLANK(17) :GET 
(164, 138)-(166,151) ,SERUMBLANK 

310 REM draw injection machine 

317 LINE (165,146)-(165,138),1:DIM SERUM(17):GET 
(164,138)-(166,151) ,SERUM 

320 LINE (150, 169)-(180, 199) ,3, BF: LINE(140, 197) - 
(190,199) ,3,BF:LINE (150,169)-(1 65,159) ,1:LINE - 
(180,169) ,1:LINE -(150,169),1:PAINT(165,160),1,1 
:LINE (165,159)-(165,149),1 

325 GET(133,149)-(197,199) , INJECTOR 

340 CLS: 

410 JN=0:T=1:IN=10:E=0:CV=5:GOSUB 600 

420 REM move cubes 

430 X=0:INC=30:MINC=INC :M=X:J=0: JJ=0:P=1 

440 PUT(X,60) ,CUBE, PSET 

470 X=X+INC:J=J+1:SOUND 10*X+50*P,2:P=P+.1 

480 IF JJ=1 THEN GOTO 520 

490 IF J>=CV THEN 510 

500 GOTO 440 

510 REM blank out 

520 PUT(M,60) , BLANK , PSET 

540 M=M+MINC 

550 REM recycle 

560 IF X>=259 OR X<=0 THEN INC=-INC:JJ=1:GOTO 580 

570 IF M>=259 OR M<=0 THEN MINC=INC 

580 GOTO 720 

600 INJ=150:REM injector 

610 PUT (INJ,149), INJECTOR ,PSET:SOUND INJ*10+50,1 

670 CA=0:QR=138:QC=INJ+31 

690 LOCATE 1,1:PRINT "CUBES REMAINING:"; 

700 LOCATE 2,1:PRINT "CUBES ADDED:"; 

710 PRINT K$(PL):RETURN 

720 REM injection/injector move 

730 IF R=72 THEN 790 

740 RR$=INKEY$:IF LEN(RR$)=2 THEN R$=MID$(RR$,2,1): 
R=ASC(R$) 

750 IF R=72 THEN 790 
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760 
770 
780 
790 
800 
810 
815 
820 


825 


830 
840 
870 
875 
880 
890 
900 
910 
930 
940 
950 
960 
970 
990 
1000 
1010 
1060 
1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


1160 
1170 
1180 
1190 
1200 
1210 
1250 
1260 
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IF R=75 THEN 900 

IF R=77 THEN 960 

GOTO 440 

IF JN=1 THEN 810 

QQ=INJ:QK=QC: JN=1 

IF QR<=65 THEN V=1:GOTO 870 

IF POINT(QC,QR-5)=0 THEN GOTO 830 

IF POINT(QC,QR-5)=2 THEN V=1:PUT(QC,QR), 
SERUMBLANK , PSET:GOTO 870 

IF POINT(OC,QR-5)=3 THEN PAINT(QC,QR-5),1,3:PUT 
(QC,QR) ,SERUMBLANK , PSET: GOTO 1060 
QR=QR-—5:PUT(QC,QR) ,SERUM,PSET:SOUND 10*(24-QR) ,1 
GOTO 440 

INJ=QQ+E: QC=INJ+31:QQ=0:E=0: QR=138:P=1 
PUTCINJ, 149) , INJECTOR , PSET 

IF V=1 THEN GOSUB 1140 

R=0:JN=0:GOTO 440 

REM to left 

IF INJ<=0 THEN 440 

INJ=INJ-T: QC=INJ+31 
PUTCINJ, 149) , INJECTOR , PSET 

GOTO 440 

REM to right 

IF INJ>=254 THEN 440 

INJ=INJ+T: QC=INJ+31 
PUTCINJ,149) , INJECTOR , PSET 

GOTO 440 

REM injected 

T=T+1:CV=CV-—i:FOR B=l TO 3:SOUND 2000,1:SOUND 
2250,1:NEXT B 

IF T>5 THEN T=1 

IF CV<=#2 THEN CV=5 

IN=IN-1:LOCATE 1,20:PRINT IN; 

IF IN<=0 THEN 1250 

EsINTCRND*5):IF E+Q0>=256 THEN E=-CRND*5) 
GOTO 870 

REM cube added/injection missed 
IN=IN+1:FOR B=500 TO 600 STEP 20:SOUND B,1: 
NEXT B 

CA=CA+1:V=0 

T=T-1 

IF T<=0 THEN T=1 

LOCATE 1,20:PRINT IN; 

LOCATE 2,15:PRINT CA; 

RETURN 

REM player advance 

W(PL)=CA: PL=PL+1 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1535 
1540 


IF PL>U THEN 1310 


LOCATE 3,1:PRINT "STANDBY, ";K$(PL);"..."5 


FOR YY=1 TO 1500:NEXT 

R=0:GOTO 410 

FOR YY=1 TO 900:NEXT:CLS 

PRINT "ALL PLAYERS HAVE HAD THEIR" 
PRINT "TURNS AT THE INJECTION MACHINE." 
PRINT "SCORES ARE BASED ON THE NUMBER" 
PRINT "OF CUBES THAT WHERE ADDED DURING" 
PRINT "THE INJECTION PROCESS." 

PRINT: FOR I=] TO U 

PRINT "INJECTOR: ";K$(I) 

PRINT "HAD ";W(1);" CUBES ADDED." 
PRINT "FINAL SCORE EVALUATION: "; 
W=W(I) 

IF W>=0 AND W<=5 THEN 1470 

IF W>=5 AND W<=10 THEN 1480 

IF W>=10 AND W<=20 THEN 1490 

PRINT "TOO HORRIBLE TO MENTION." 

GOTO 1500 

PRINT "EXCELLENT.":GOTO 1500 

PRINT "FAIR.":GOTO 1500 

PRINT "POOR." 

FOR YY=1 TO 1200:NEXT YY:PRINT 

NEXT I 

PRINT 

PRINT "END OF INJECTION" 

SCREEN 0,0,0 

END 
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Point A to Point B for the IBM PC 


1 REM program title: POINT A TO POINT B 
5 CLEAR 300 
10 V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 
15 V=VALCV$) 
20 RANDOMIZE V:DIM SONG$(13) 
30 COLOR 14,10,14:CLS:KEY OFF:WIDTH 40:DEF 
SEG=&HB800 
40 PRINT TAB(15) "< FROM POINT A >":BEEP 
50 PRINT TAB(15) "< TO POINT B >":SOUND 500,3 
60 PRINT:DIM D$(50) ,S(50) 
70 BEEP: INPUT "INSTRUCTIONS (Y/N)";W$ 
80 IF W$="N" OR W$="NO" THEN G=1 
90 BEEP: INPUT "NUMBER TO PLAY (1-10)"3A 
100 IF A<1i OR A>10 THEN 90 
110 IF Gel THEN G=0:GOTO 410 
120 PLAY "MB L8 F EF A C':LOCATE 3,1:PRINT "ARE YOU 
CONFUSED BY THE MANY" 
130 PRINT "DIFFERENT MAZE GAMES THAT ARE" 
140 PRINT "CURRENTLY ON THE MARKET? HAVE" 
150 PRINT "NO FEAR!! <FROM POINT A TO " 
160 PRINT "POINT B> IS HERE! !" 
170 PRINT:PRINT "ACTUALLY, THIS IS NOT YOUR" 
180 PRINT "RUN-OF-THE-MILL MAZE GAME." 
190 PRINT "IT IS ONE THAT WILL PROBABLY" 
200 PRINT "CONFUSE YOU MORE THAN EVER!" 
210 PRINT "YOU SEE, YOU WILL NOT BE" 
220 PRINT "CONSTANTLY PRESSING DIFFERENT" 
230 PRINT "KEYS FOR DIFFERENT DIRECTIONS;" 
240 PRINT "INSTEAD, YOU'LL INPUT ALL" 
250 PRINT: INPUT "PRESS ENTER TO CONTINUE" ,W 
260 CLS 
270 PLAY "MB L8 C C+ DE F":PRINT "OF THE 
INSTRUCTIONS BEFORE YOU" 
280 PRINT "MOVE AT ALL: UP SO MANY" 
290 PRINT "SPACES, RIGHT SO MANY SPACES," 
300 PRINT "LEFT, SO MANY, ETC., ETC." 
310 PRINT "AFTER YOU HAVE ENTERED ALL" 
320 PRINT "OF YOUR DIRECTION INSTRUCTIONS" 
330 PRINT "YOU WILL INPUT <XX>. AT THAT" 
340 PRINT "POINT YOUR PIECE WILL BEGIN " 
350 PRINT "TO MOVE FOLLOWING THE INSTRUCTIONS" 
360 PRINT "YOU GAVE. IF AT ANY POINT YOU " 
370 PRINT "COLLIDE WITH ANYTHING OTHER" 
380 PRINT "THAN A BLANK SPACE--END OF TURN..." 
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390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
515 
520 
560 


565 
570 
580 
590 
600 
605 
610 
620 
630 
631 
632 
633 
634 
635 
637 
638 


639 


640 
650 


660 
670 
680 
690 
700 
710 


PRINT 

INPUT "PRESS ENTER, AGAIN" ,W 
CLS 

REM players 

REM play in order of entry 


BEEP:PRINT "ENTER THE FIRST NAMES OF" 

PRINT "THE ';A;"PLAYERS, PLEASE" 

FOR I=1 TO A: INPUT A$(I):SOUND 100+25*I,3 

NEXT: L=1 :MX=0 

PRINT 

PRINT "TO BEGIN, ";A$(L);", PRESS ENTER"; 

INPUT W 

REM graphics and music 

FOR I=1 TO 13:READ SONG$(I) :NEXT 

CLS:SNG=1:PLAY "XSONG$(SNG);":GOTO 580 

LOCATE 1,1:PRINT STRING$(40,32):LOCATE 2,2:PRINT 

STRING$( 36,219); 

DC=INT(RND*6+25) :DR=2 

LOCATE DR,DC:PRINT STRING$(2,32); :RETURN 

GOSUB 560:LOCATE 8,2:PRINT STRING$(9,219); 

LOCATE 8,18:PRINT STRING$(9,219);:GOTO 620 

LOCATE 8,22:PRINT STRING$(14,219) 

DC=INT(RND*7+30) : DR=6 

LOCATE DR,DC:PRINT STRING$(2,32); :RETURN 

GOSUB 700:M=10:Ml=20:M2=6:M3=12:GOTO 670 

SNG=SNG+1:IF SNG<=13 THEN PLAY "XSONG$(SNG);" 

IF M2<=0 THEN M2=INT(RND*4+2) 

IF M2>=23 THEN M2=INT(RND*10+13) 

IF Ml<=0 THEN M1=INT(RND*10+1) 

IF Ml>=40 THEN M1=38 

FOR X=M TO Ml:LOCATE M2,X:PRINT CHR$(219) 

DR=8:DC=INT(RND*10+10) :FR=11:FC=INT(RND*10+20) 

LOCATE DR,DC:PRINT STRING$(10,219):LOCATE FR,FC: 

PRINT STRING$(10,219) 

FOR ROW=12 TO 14:COL=INT(RND#*25+1) :GAP=INT(RND* 

15+1):LOCATE ROW,COL:PRINT STRING$(GAP ,32) :NEXT: 

LOCATE 8,COL:PRINT STRING$(GAP , 32) 

ioe M3,X:PRINT CHR$(219):NEXT:FOR X=M2+1 TO 
3-2 

LOCATE X,M:PRINT CHR$(219):LOCATE X,(M+1):PRINT 

CHR$(219):LOCATE X,(M1-1):PRINT CHR$(219) 

LOCATE X,M1:PRINT CHR$(219):NEXT:RETURN 

GOSUB 630 

M=1:Ml=5:M2=12:M3=16:GOSUB 630 

M=6:M1=9:GOSUB 630 

M=M1+1:M1l=M14+22:M2=M3—2 :M3=M3+6 

GOSUB 630 
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720 
730 
740 
750 
752 
755 
758 
760 
765 
770 
775 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
1000 
1010 


1020 


1030 
1040 
1050 
1060 
1070 


NAN 
AVvOU 


1090 
1100 
1110 
1130 


1140 
1150 
1160 
1170 


VAN 
LLOU 


1190 
1200 
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M=M1+1:M1l=M1+9 :M2=M2+6 :M3=M3+6 

GOSUB 630 

M=1:M1=9:GOSUB 630:GOTO 770 

LOCATE 20,10:PRINT STRING$(25, 219) 
LOCATE 12,30:PRINT STRING$(8,219) 
DC=INT(22*RND+10) : DR=20 
FC=INT(6*RND+31):FR=12 

LOCATE DR,DC:PRINT STRING$(2, 32); 

LOCATE FR,FC:PRINT STRING$(2,32);:RETURN 
GOSUB 750:M1=M1~3:M2=M3+2:M3=M3+6 

GOSUB 630 

M=M1+1:Ml=M1+4 

GOSUB 630 

IF M>=38 THEN 880 

GOTO 780 

M=M-—5 :M1=M+3 :M2=2:M3=10 

GOSUB 630 

M=M—4:M1=M+4 :M2=M3+2 :M3=M3+8 

GOSUB 630 

M=M-5:M1l=M+1:M2=4:M3=6 

GOSUB 630:RETURN 

REM start/stop locations 

GOSUB 820:Y=21:X2=40 
XI=INTCRND*(X2-1)+2) 

IF G=1 THEN 1110 

COLOR 11:LOCATE 23,5:PRINT "THIS IS POINT A 
(START) ." 

LOCATE Y,X1:PRINT CHR$(32):LOCATE Y,(X1-1): 
PRINT CHR$(32) 

FOR T=1 TO 50:NEXT 

COLOR 27:LOCATE Y,X1:PRINT CHR$(219) 

FOR T=1 TO 1000:NEXT 

COLOR 11:LOCATE Y,X1:PRINT CHR$(219) 

IF G=1 THEN 1150 ELSE JJ=X1 

ou 

wee 

LOCATE 23,5:PRINT "LOOK AT THE TOP (POINT B)." 
Y=1:X2=30:GOTO 900 

LOCATE 23,5:PRINT STRING$(35, 32) 

LOCATE 23,5:PRINT "THIS IS POINT B (STOP 
ZONE) ." 

R=X1:GOTO 1020 

LOCATE 23,5:PRINT STRING$(35, 32) 

GOTO 1210 

LOCATE 23,5:PRINT STRING$(35,32):LOCATE 23,5 
RETURN 

FOR T=1 TO 2000:NEXT 

GOSUB 1170:RETURN 


1210 GOSUB 1170 

1220 PRINT "YOU WILL NOW GIVE INSTRUCTIONS: 

1230 GOSUB 1190:GOSUB 1170 

1240 PRINT "TO ENTER THE STOP ZONE..." 

1250 GOSUB 1190:GOSUB 1170 

1260 PRINT "STOP ZONE BLOCK MUST BE HIT: 

1270 GOSUB 1190:GOSUB 1170 

1280 PRINT "HEAD-ON TO COMPLETE A RUN." 

1290 GOSUB 1190:GOSUB 1170 

1300 I=1 

1310 INPUT "DIRECTION (L,R,U,D)",D$:SOUND 500,3 

1320 IF D$="XX" THEN 1380 

1330 D$(I)=D$:GOSUB 1170 

1340 INPUT "FOR HOW MANY SPACES";S:BEEP 

1350 S(I)=S:T=I+1:GOSUB 1170 

1360 IF I>=51 THEN 1430 

1370 GOSUB 1200:GOSUB 1170:GOTO 1310 

1380 GOSUB 1170 

1390 PRINT "THE COMPUTER WILL NOW CARRY" 

1400 GOSUB 1190:GOSUB 1170 

1410 PRINT "OUT ALL OF YOUR INSTRUCTIONS." 

1420 I=I-l:H=I:T=1:X=JJ:Y=21:G=0 

1425 GOSUB 1190:GOTO 1480 

1430 GOSUB 1170 

1440 PRINT "THAT IS THE LIMIT OF THE" 

1450 GOSUB 1190:GOSUB 1170 

1460 PRINT "INSTRUCTIONS YOU CAN ENTER." 

1470 GOSUB 1190:GOTO 1380 

1480 D$=D$(1):S=S(1):J=1:IF I<=12 THEN PLAY 
"XSONG$(I);" 

1490 IF D$="L" THEN 1540 

1500 IF D$="R" THEN 1580 

1510 IF D$="U" THEN 1620 

1520 IF D$="D" THEN 1660 

1530 GOTO 1760 ‘bad direct 

1540 IF PEEK( (X-2)*2+(Y-1)*80)=219 THEN 1760 

1550 X=X-1:LOCATE Y,X+1:PRINT CHR$(32) 

1560 IF X<=0 THEN 1760 

1570 GOTO 1690 

1580 IF PEEK(X*2+(Y-1)*80)=219 THEN 1760 

1590 X=X+1:LOCATE Y,(X-1):PRINT CHR$(32) 

1600 IF X>=40 THEN 1760 

1610 GOTO 1690 

1620 IF PEEK( (X-1)*2+(Y-2)*80)=219 THEN 1760 

1630 Y=Y-1:LOCATE (Y+1),X:PRINT CHR$(32) 

1640 IF Y<=0 THEN 1760 

1650 GOTO 1690 
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1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2005 
2010 
2015 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
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IF PEEK( (X-1)*2+Y*80)=219 THEN 1760 
Y=Y+1:LOCATE (Y-1),X:PRINT CHR$(32) 
IF Y>=20 THEN 1760 

COLOR 11:LOCATE Y,X:PRINT CHR$(2):COLOR 14 
IF S>J THEN 1720 

GOTO 1730 

J=J+1:GOTO 1490 

T=I+1 

IF ID>H THEN HH=1:GOTO 1760 

GOTO 1480 

GOSUB 1170:IF ABS(X-R)<=1 THEN 2060 
IF HH=1 THEN HH=0:GOTO 1900 

PRINT "SORRY...YOU HAVE ATTEMPTED" 
GOSUB 1190:GOSUB 1170 

PRINT "A SHORT-CUT THAT DIDN'T WORK." 
REM another play? 

GOSUB 1190 

GOTO 1950 

GOSUB 1190:GOSUB 1170 

PRINT "READY TO TRY AGAIN (Y/N)"; 
INPUT W$ 

IF W$="Y"THEN 1880 

GOTO 2300 

LOCATE Y,X:PRINT CHR$(32):LOCATE 1,R:PRINT 
CHR$( 32) 

GOTO 1970 

GOSUB 1170 

PRINT "THAT WASN'T ENOUGH TO GET " 
GOSUB 1190:GOSUB 1170 

PRINT "YOU TO THE STOP ZONE, ";A$(L) 
GOTO 1800 

REM player advance 

IF L>=A THEN 2020 ELSE L=L+1 

GOSUB 1170 

PRINT AS(L)3" WILL NOW ATTEMPT THE" 
GOSUB 1190:GOSUB 1170 

PRINT "VENTURE FROM POINT A TO B." 
LOCATE Y¥,X:PRINT CHR$(32):LOCATE 1,R:GOSUB 560 
GOSUB 600:GOSUB 750:M=35:M1=38 
GOSUB 1190:GOTO 880 

REM start over 

L=1:GOSUB 1170 

PRINT "ALL HAVE PLAYED..." 

GOSUB 2160:MX=0:GOTO 1830 

IF ABSCY-1)>=1 THEN 1900 

GOSUB 1190:GOSUB 1170:REM complete 
PRINT "VERY WELL DONE, ";A$(L);"11"' 


2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2365 


2370 
2380 
2390 
2400 
2410 
2420 
2425 
2430 
2440 


2450 
2460 


GOSUB 1190:G 
PRINT "YOU H 
GOSUB 1190:G 
PRINT "PASSA 
GOSUB 1190 
M(L)=1:MX=1 
GOTO 1950 
REM players 
IF MX=0 THEN 
GOSUB 1190:G 
PRINT "THE F 
GOSUB 1190:G 
PRINT "IT TO 
GOSUB 1190:G' 
FOR U=1 TO A 
IF M(U)=1 TH 
NEXT: RETURN 
PRINT A$(U); 
GOSUB 1190:G 
M(U)=0:GOTO 
REM end 
GOSUB 1190:G 
PRINT "POINT 
GOSUB 1190:G 
PRINT "TERMI 
GOSUB 1190:G 
END 

DATA "MB T20 


OSUB 1170 

AVE MADE A COMPLETE " 
OSUB 1170 

GE TO POINT B..." 


made to point b 

RETURN 

OSUB 1170 

OLLOWING HAVE EASILY MADE" 
OSUB 1170 

POINT B...." 

OSUB 1170 


EN 2260 


W Lh 


OSUB 1170 
2250 


OSUB 1170 

A TO POINT B" 
OSUB 1170 
NATED...." 
OSUB 1170 


0 L1 03 E D" 


DATA "MB T250 L8 C02 BO3CDCOZGEFGA 


GE L4 G" 


DATA "MB MS LS OS CDI4EEL8SEDCDL4AE 


DATA "MB L8 OS EDL8C02BO03CDCO2GEF 


E L4G 


GAG 

DATA "MB MS 
L2 Cc" 

DATA "MB MS 
L8 E L2 G" 
DATA "MB MS 
L8 F L2 A" 
DATA "MB MS 
E pr 

DATA "MB MS 
Dic! 

DATA "MB MS 
DATA "MB MS 
DATA "MB MS 
DATA "MB MS 


ft 


LS O3CDI4EGL8GECDL4ED 


OBLEEL4GLI8EL4GGLEEL4G 


OS LE FL4AL8F L4AALBSF LAA 


L12 0O3GABO4L4CCO3GGE 
LESCDI4EL8GAGECDI4E 


P4 03 L4 C 02 LO G G- G L4 G+ G" 
P4 01 G 02 B 03 C" 
P4 05 L4 C 04 LO G G- G L4 G+ G" 
P4 01 G 04 B 05 C" 
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Intercept for the IBM PC 


1 REM program title: INTERCEPT 
3 CLEAR 200 
5 V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 
10 V=VAL(V$) 
15 RANDOMIZE V 
30 CLS:WIDTH 40:KEY OFF 
40 BEEP:PRINT TAB(15)"[[ INTERCEPT ]]" 
50 PRINT 
60 BEEP: INPUT "INSTRUCTIONS ";Q$ 
70 IF Q$="N" OR Q$="NO" THEN 520 
80 PRINT 
90 PRINT "YOU ARE THE LEADER OF A SPECIAL" 
95 PRINT 
100 PRINT "GROUP KNOWN AS [[ INTERCEPT ]]." 
105 PRINT 
110 PRINT "YOU WILL HAVE TO IDENTIFY AND 


115 PRINT 

120 PRINT "POSSIBLY DESTROY ANY ALIENS WHO" 

125 PRINT 

130 PRINT "VENTURE INTO THE STERILIZED DOME" 

135 PRINT 

140 PRINT "WHERE ALL OF YOUR INHABITANTS LIVE." 
145 PRINT 

150 PRINT "THE APPROACH TO THE DOME CONSISTS OF" 
155 PRINT 

160 PRINT "CROSSROADS. NEAR THE EDGE OF THE SCREEN" 
165 PRINT 


170 PRINT "ARE TWO LASER CANNONS. THESE CANNONS" 

175 PRINT 

180 PRINT "WILL FIRE ONLY WHEN YOU HAVE ENTERED" 

185 PRINT 

190 PRINT "THE CORRECT KE 
GOSUB 2300:GOSUB 2330 

193 PRINT 

195 PRINT 

197 INPUT "PRESS ENTER TO CONTINUE" ,Q$:CLS 

200 PRINT "THEN LEFT ARROW TO PRIME, AND UP ARROW" 

203 PRINT 

205 PRINT "TO FIRE.":PRINT 

210 PRINT "AT RANDOM TIMES, DIFFERENT FIGURES" 

215 PRINT 

220 PRINT "WILL APPEAR AT THE CENTER OF THE" 

225 PRINT 

230 PRINT "VERTICAL ARM OF THE CROSSROAD. WHEN" 
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235 PRINT 

240 PRINT "THE FIGURE IS AT THE CENTER, IN LINE" 

245 PRINT 

250 PRINT "WITH YOUR LASER, YOU MUST DECIDE " 

255 PRINT 

260 PRINT "WHETHER IT IS ALIEN OR FRIENDLY. IF" 

265 PRINT 

270 PRINT "YOU BELIEVE THAT IT IS THE LATTER OF" 

275 PRINT 

280 PRINT "THE TWO, DO NOTHING--JUST LET IT PASS.: 

285 PRINT 

290 PRINT "IF YOU BELIEVE IT IS THE ALIEN, FIRE ": 
GOSUB 2310:GOSUB 2350 

295 PRINT: PRINT 

300 INPUT "PRESS ENTER TO CONTINUE: ";Q$ 

310 CLS: PRINT "THE LASER BY PRESSING THE UP ARROW 
KEY. 

315 PRINT 

320 PRINT "REMEMBER, THE LASER CANNOT BE FIRED " 

325 PRINT 

330 PRINT "UNTILL YOU HAVE FIRST PRIMED IT BY " 

335 PRINT 

340 PRINT "PRESSING THE RIGHT, THEN LEFT ARROW KEYS. 


";GOSUB 2310 
345 PRINT 
350 PRINT "YOUR COMMISSION WILL LAST 10 DAYS. IF" 
355 PRINT 
360 PRINT "YOU DESTROY TEN FRIENDLY INTRUDERS " 
365 PRINT 
370 PRINT "BEFORE THAT TIME, YOUR COMMISSION" 
375 PRINT 


380 PRINT "WILL BE TERMINATED IMMEDIATELY." 
385 PRINT:PRINT 

390 INPUT "PRESS ENTER TO CONTINUE:",X$ 

400 CLS:PRINT "THE FINAL OBJECT: 

405 PRINT 

410 PRINT "TO DESTROY AS MANY ALIEN INTRUDERS" 
415 PRINT 

420 PRINT "AS YOU CAN BEFORE YOUR COMMISSION " 
425 PRINT 

430 PRINT "EXPIRES." 

460 PRINT 

510 PRINT 

520 PRINT 

530 IF Q$="N" OR Q$="NO" THEN GOSUB 2300 

535 GOSUB 2350: INPUT "YOUR LAST NAME, PLEASE:",P$ 
540 CLS:COLOR 15,0,7 
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550 
560 
570 
580 
590 


600 
610 
620 
630 
640 
650 


660 
670 
680 
690 
700 
710 


750 
760 


790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
945 


950 
960 
970 
980 
990 


REM intercept crossroads 

X$=STRINGS$ (16,219) 

AC=3; AR=4: Je=1 

LOCATE AR,AC:PRINT X$:LOCATE AR+5,AC:PRINT X$ 
LOCATE AR,AC+20:PRINT X$:LOCATE AR+5,AC+20:PRINT 
X 

ARAREL : Jue 

IF J>=5 THEN 630 

GOTO 580 

AAR=8: AAC=37: A$=CHR$(219)+CHR$(16) 
AA$=CHR$(17)+CHR$(219) 

COLOR 11:LOCATE AR,AC:PRINT A$:LOCATE AAR,AAC: 
PRINT AA$ 

LOCATE 16,5:PRINT "LEADER: ";P$ 

LOCATE 17,5:PRINT "PRESENT CONDITION:" 

LOCATE 18,5:PRINT "LASER STATUS:" 

LOCATE 19,5:PRINT "DAYS TO GO ON COMMISSION:" 
REM get figures 

F$(1)=CHR$(1) :F$(2)=CHR$(3) :F$(3)=CHR$(5):F$(4) 
=CHR$(8) :F$(5)=CHR$(15) 

REM alien 

A$(1)=CHR$( 2) :A$(2)=CHR$(4) :A$(3)=CHR$(6)'3A$(4) 
=CHR$(14):A$(5)=CHR$(64) 

REM double size 

FOR I=] TO 5 

F$(1)=F$(1)+F$(1) 

A$(T)=A$(I)+A$(T) 

NEXT: KRI=AR : KC1=AC+2 : KR2=AR : KC2=AC+18 

REM days/alien/friendly 

DA=10: AI=0:FI=0:AD=0:FD=0:DF=0 

C$="QUIET  ":CC$="ALERT" 
L$="CHARGING":LL$="READY  "' 

LOCATE 17,24:PRINT C$ 

LOCATE 18,19:PRINT L$; 


Q1.DP TNT Na. 
LOCATE 19,31: PRINT DAS 


REM start location 
LR=13:LC=20 

REM condition 

FOR T=1 TO 500 

IF INT(T/200)=T/200 THEN SOUND T/40,3:SOUND 
32767 ,3 
T=INT(RND*541) 
N=INT(RND*5+41) 

IF N=I THEN 1000 
NEXT T 

GOTO 940 


1000 REM alert / intruder 
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1005 IF T<=200 THEN T=T+1:GOTO 1005 

1010 X=0:LF=1:XC=0:DS=0: YU=0 

1020 LOCATE 17,24:PRINT STRING$(6, 32); 

1030 FOR T=1 TO 100:NEXT 

1040 LOCATE 17,24:COLOR 28:PRINT CC$: 

1050 FOR TT=1 TO 500:NEXT 

1060 SOUND 1000,3:SOUND 32767 ,3:X=X+1:IF X<=4 THEN 
1060 

1070 COLOR 12:LOCATE 17,24:PRINT "INTRUDER"; 

1080 R=INT(RND*2+1) 

1090 IF R=2 THEN 1110 

1100 LOCATE LR,LC:COLOR N:PRINT F$(N);:GOTO 1115 

1110 LOCATE LR,LC:COLOR N:PRINT A$(N); 

1115 YU=YU+1 

1120 IF E=0 THEN EE$=INKEY$:IF LEN(EE$)=2 THEN 
E$=MID$(EE$ , 2 26 E=ASC(E$) 

1125 IF LF=4 THEN 136 

1130 MM=INT(RND*2+1) 

1140 IF MM=1 AND YU<=70 THEN 1180 

1150 IF LR<=1 THEN 1520 

1160 LR=LR-1:LOCATE LR+1,LC:PRINT STRING$(2,32); 

1170 IF LF<=6 GOTO 1200 ELSE 1360 

1180 IF LR>=12 THEN MM=2:GOTO 1150 

1190 LR=LR+1:LOCATE LR-1,LC:PRINT STRING$(2,32); 

1200 IF E=77 AND LF=1 THEN 1240 

1210 IF E=75 AND LF=2 THEN 1250 

1220 IF E=72 AND LF=3 THEN 1260 

1230 GOTO 1270 

1240 LF=2:GOTO 1280 

1250 LF=3:GOTO 1280 

1260 LF=4:GOTO 1280 

1270 E=0:GOTO 1090 

1280 COLOR 3:LOCATE 23,5:PRINT "LASER KEY SEQUENCE:"; 

1290 PRINT LF-1:COLOR 15:SOUND 300,3 

1300 IF LF=3 THEN 1320 

1310 GOTO 1270 

1320 COLOR 12:LOCATE 18,19:PRINT LL$;:COLOR 15 

1330 GOTO 1270 

1360 REM firing 

1370 IF R=1 THEN 1390 

1380 COLOR N:LOCATE LR,LC:PRINT A$(N);:COLOR 15:GOTO 
1400 

1390 COLOR N:LOCATE LR,LC:PRINT F$(N);:COLOR 15 

1400 COLOR 12:LOCATE AR,AC+2:PRINT STRING$(15, 222); 

1410 LOCATE AAR,AAC-15:PRINT STRING$(15, 221); :COLOR 
15 

1415 FOR TT=1 TO 30:SOUND 150,1:SOUND 32767,1 
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1417 
1420 
1430 
1440 
1450 


1460 
1470 
1480 
1490 
1500 
1520 
1525 
1530 
1540 


1550 
1560 
1565 
1570 
1575 
1580 
1590 


1600 
1610 


1620 
1630 
1640 
1650 


1655 
1656 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1740 
1750 
1760 


1790 
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NEXT 

DEF SEG=&HB800: IF PEEK(600)=32 THEN 1440 
GOTO 1650 

COLOR 11:LOCATE 18,19:PRINT L$:COLOR 15:LF=1 
COLOR 11:LOCATE 23,5:PRINT "INDIRECT HIT 
";:COLOR 15 

LOCATE KR1,KC1:PRINT STRING$(16, 32) 

LOCATE KR2,KC2:PRINT STRINGS$(16, 32) 

FOR TT=1 TO 10:SOUND 450,1:SOUND 32767,1 
NEXT 

GOTO 1090 

REM intruder in dome 

IF YU<=50 THEN 1190 

LOCATE LR,LC:PRINT " "; 

COLOR 12:LOCATE 23,5: PRINT "INTRUDER IS NOW IN 
DOME...":COLOR 15 

FOR TT=1 TO 15:SOUND 900,1:SOUND 32767,1 
NEXT: LOCATE AR,AC+2:PRINT STRING$( 32,32); 
LOCATE 23,5:PRINT STRING$(25, 32) 


FOR TT=1 TO 200:NEXT:SOUND 1750,3 

IF R=1 THEN 1590 

GOTO 1610 

COLOR 3:LOCATE 23,5:PRINT "INTRUDER: 
PRIENDLY.... '3:COLOR 15 

GOTO 1620 

COLOR 11:LOCATE 23,5:PRINT "INTRUDER: ALIEN... 


"sCOLOR 15 

FOR TT=1 TO 500:NEXT 

IF XC<=#3 THEN XC=XC+1:GOTO 1565 

GOTO 1670 

COLOR 3:LOCATE 23,5:PRINT "INTRUDER: DESTROYED 
"sCOLOR 15 

FOR TT=1 TO 10:SOUND (TT+10)*10,1:SOUND 32767,1 

NEXT 

DS=1:LOCATE LR,LC:PRINT "  "::GOTO 1550 

REM variable count 

LOCATE 23,5:PRINT STRING$( 28, 32) 

IF DS=1 THEN 1810 

IF R=1l THEN 1750 

AT=AI+1 

LOCATE 20,5:PRINT "YOU NOW HAVE";AI;"ALIENS IN 

THE DOME." 

GOTO 1790 

FI=FI+1 

LOCATE 21,5:PRINT "YOU HAVE WISELY LET":FT; 

"FRIENDS PASS." 

REM continue if days>=1 


1800 GOTO 1900 

1810 REM destroyed 

1820 IF R=1 THEN 1870 

1830 AD=AD+1 

1840 LOCATE 21,5:PRINT "YOU HAVE DESTROYED ";AD;" 
ALIENS. iL 

1850 GOTO 1900 

1870 FD=FD+1 

1880 LOCATE 22,5:PRINT FD;" FRIENDS HAVE NOW BEEN 
DESTROYED." 

1890 REM 

1900 REM dx for days decrease 

1910 REM if less than or equal to 75 

1920 DX=INT(RND*100+1) 

1930 IF DX<=75 THEN DA=DA-1:DF=DF+1 

1940 FOR TT=1 TO 1200:NEXT 

1950 LOCATE 23,5:PRINT STRING$(34, 32) 

1960 IF DA<=0 OR FD>=10 THEN 1980 

1970 FOR TT=1 TO 10:SOUND 200,1:SOUND 32767,1 

1975 NEXT:GOTO 860 

1980 IF FD>=10 THEN 2010 

1990 LOCATE 23,5:PRINT "YOUR COMMISSION HAS 
EXPIRED... 

2000 GOTO 2020 

2010 LOCATE 23,5:PRINT "YOUR COMMISSION 
TERMINATED. ... . 

2020 FOR TT=1 TO 2000:NEXT 

2030 CLS 

2040 PRINT "DURING YOUR ";DF;" DAY COMISSION" 

2050 PRINT "YOUR RECORD IS AS FOLLOWS,";P$;":" 

2070 PRINT "ALIENS ALLOWED TO PASS INTO DOME:"';AI 

2090 PRINT "ALIENS DESTROYED: ";AD 

2100 PRINT "FRIENDLY INTRUDERS DESTROYED: ";FD 

2110 PRINT 

2120 IF FD>=10 THEN 2240 

2130 PRINT "YOUR COMMISSION HAS BEEN RATED: " 

2140 IF AD>=1 AND AD<=5 THEN 2170 

2150 IF AD>=5 AND AD<=9 THEN 2190 

2160 IF AD>=10 THEN 2210 

2170 PRINT "IMPROPER: POOR USE OF LASER." 

2180 GOTO 2270 

2190 PRINT "FAIR: LASER USED, BUT INSUFFICIENTLY." 

2200 GOTO 2270 

2210 PRINT "EXCELLENT: ALL JUDGEMENTS MADE" 

2220 PRINT "WITH UTMOST CAUTION." 

2230 GOTO 2270 

2240 PRINT "YOU HAVE DESTROYED ";FD;" FRIENDLY" 
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2250 PRINT "INTRUDERS, ";P$;". DO NOT ATTEMPT" 

2260 PRINT "TO REAPPLY FOR THIS COMMISSION." 

2270 PRINT 

2280 PRINT "TERMINATION OF PROGRAM." 

2290 END 

2300 INTERCEPT$="02 MS L12 B- A F ML L4 G" 

2310 PLAY "MB MN 02 L2 C L4 F;XINTERCEPT$;MN L4G C;' 

2320 RETURN 

2330 rat MB XINTERCEPT$; XINTERCEPT$;MS L12 A F A 

2340 RETURN 

2350 PLAY "MB XINTERCEPT$;XINTERCEPT$;P15 L12 MS 
GGG L 1 03 C;" 

2360 RETURN 
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Insomnia for the IBM PC 


10 REM program title: INSOMNIA 
20 CLEAR 200:COLOR 1,11,7:CLS:KEY OFF:WIDTH 40 
30 PRINT "INSOMNIA" 

40 PRINT 

50 PRINT "SO YOU ARE HAVING PROBLEMS" 
60 PRINT "SLEEPING. JUST SIT BACK, KEEP" 
70 PRINT "YOUR EYES ON THE VIDEO AND" 
80 INPUT "PRESS ENTER";X:CLS 

90 A=20:W=0 

100 PRINT:PRINT TABCA)":"; 

110 PRINT TAB(A-1)":";TABCAt1)":"; 

120 I=INT(RND*2+1) 

130 IF T=] THEN 160 

140 IF A>=39 THEN 170 

150 A=A+2:GOTO 180 

160 IF A<=10 THEN 150 

170 A=A-2 

180 W=W+1:IF W=l15 THEN 350 

190 IF W=700 THEN 210 

200 GOTO 100 

210 IF W<=800 THEN 230 

220 GOTO 250 

230 PRINT 

240 W=W4+1:GOTO 210 

250 PRINT "GETTING SLEEPY NOW????" 

260 FOR I=1 TO W:NEXT 

270 IF W<=814 THEN 290 

280 GOTO 300 

290 PRINT: W=W+1:GOTO 270 

300 FOR X=1 TO 40 

310 LOCATE 1,X:PRINT CHR$(219):LOCATE 23,X:PRINT 

CHR$( 219) : NEXT 
320 COLOR 9:FOR X=1 TO 23 
330 LOCATE X,1:PRINT CHR$(219):LOCATE X,40:PRINT 
CHR$( 219) :NEXT 

340 FOR I=1 TO W:NEXT:W=0:GOTO 400 

350 LOCATE 16,20 

360 PRINT "KEEP EYES HERE!" 

370 GOSUB 600 

380 GOTO 190 

400 L=38:AR=2:AC=2:XR=22:XC=6:Y=AR 

410 A$=STRING$(L,L*4+27) 

420 LOCATE AR,AC:PRINT A$; 

430 LOCATE XR,XC:PRINT A$; 

440 A$=STRING$(L, 32) 
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450 LOCATE AR,AC:PRINT A$ 

460 LOCATE XR,XC:PRINT A$ 

470 AR=AR+1:XR=XR-1:IF AR=12 THEN 530 

480 IF XR=Y THEN 500 

490 GOTO 410 

500 IF W<=50 THEN 520 

510 GOSUB 600:GOTO 610 

520 W=W+l:IF W=25 THEN GOSUB 580 

525 GOTO 400 

530 IF W>1 THEN 480 

540 LOCATE AR,10 

550 PRINT "STARE AT THIS LOCATION"; 

560 GOSUB 600 

570 GOTO 480 

580 A2=AR-6:IF AR<=0 THEN AR=1 

585 Al=AC+25:IF Al>=40 THEN Al=40 

590 PRINT "NOW FOLLOW THE BARS"; 

600 FOR I=1 TO 1000:NEXT:RETURN 

610 CLS 

620 PRINT "IF YOU ARE NOT GETTING SLEEPY" 

630 PRINT "BY NOW, YOU'RE A HOPELESS" 

640 PRINT "CASE!!!" 

650 GOSUB 600:PRINT 

660 PRINT "THIS IS THE LAST PHASE OF" 

670 PRINT "INSOMNIA. IF IT FAILS, RUN" 

680 PRINT "THE ENTIRE PROGRAM ONCE" 

690 PRINT "AGAIN..... u 

700 GOSUB 600:PRINT 

710 PRINT "KEEP YOUR EYES ON THE MOVING" 

720 PRINT "BLOCK, THINKING TO YOURSELF" 

730 PRINT "'I AM GETTING SLEEPY..... : 

740 INPUT "PRESS ENTER ":X:W=0 

750 COLOR 4,2:CLS:P$=STRING$(2,219) :A$=STRING$(2, 32) 
:PC=PC+30 


eet aTnn V... TAY A 
760 ¥=20:FOR X=6 LU FD 


770 LOCATE X,Y:PRINT CHR$( 219) :NEXT 
780 PR=X:PC=20 

790 GOSUB 1100 

800 FOR X=6 TO 9 

810 LOCATE X,Y:PRINT CHR$(32):NEXT 
820 IF Z=1 THEN 930 

830 FOR X=6 TO 9 

840 LOCATE X,Y:PRINT CHR$(219) :Y=Y-1:NEXT 
850 GOSUB 1120 

860 PC=PC-6 

870 GOSUB 1100 

880 Y=20 
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890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 
1080 


1090 
1100 
1110 
1120 
1130 
1150 
1155 
1160 


FOR X=6 TO 9 

LOCATE X,Y:PRINT CHR$(32):Y=Y—1:NEAT 
GOSUB 1120: 

Z=1:GOTO 760 

GOSUB 1120 

FOR X=6 TO 9 

LOCATE X,Y:PRINT CHR$(219) :Y=Y+1:NEXT 
PC=PC+5:LOCATE PR,PC:PRINT P$ 
Y=20:FOR X=6 TO 9 
LOCATE X,Y:PRINT CHR$(32) 
Y=Y+1:NEXT 

GOSUB 1120 

W=W+1 

IF W=5 THEN 1050 

TF W=50 THEN 1150 

Z=0:GOTO 760 

FOR X=12 TO 27 

LOCATE 6,X:PRINT CHR$(219):LOCATE 11,X:PRINT 
CHR$( 219) :NEXT 

FOR X=6 TO 11 


LOCATE X,12:PRINT CHR$(219):LOCATE X,27:PRINT 


CHR$( 219) : NEXT 

GOTO 1030 

LOCATE PR,PC:PRINT P$; 
RETURN 

LOCATE PR,PC:PRINT A$; 
RETURN 

REM end of program 
LOCATE 6,20:PRINT P$ 
GOTO 1160 
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Lap-the-Track for the IBM PC 


3 CLEAR 200:CLS:KEY OFF:WIDTH 80 
5 V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 
10 V=VAL(V$) 
15 RANDOMIZE V 
30 PRINT TAB(25) "-:-: LAP~THE-TRACK :-:."' 
40 PRINT :DIM A$(15),A(15) ,LA(15) ,T(15) 
50 INPUT "INS'TRUCTIONS" sA$ 
60 IF A$<>"Y"! AND AS<O"YES" THEN 300 
70 PRINT "UP TO FIFTEEN PEOPLE BET ON FOUR MOVING 
SPOTS THAT ARE IN A FAST RACE" 
80 PRINT 
90 PRINT "TO THE FINISH. A COMPLETE RACE CONSISTS 
OF TEN LAPS. EACH PLAYER" 
100 PRINT 
110 PRINT "WILL BE ABLE TO CHOOSE A LANE (1-4) AND 
MAKE A BET OF ANY DESIRED " 
120 PRINT 
130 PRINT "AMOUNT ON THAT LANE. IF THERE ARE NO 
WINNERS, THE COMPUTER WILL" 
140 PRINT 
150 PRINT "PLACE THE MONEY ON A LANE OF ITS CHOICE 
IN THE NEXT RACE. IF THE" 
160 PRINT 
170 PRINT "COMPUTER'S SPOT HAPPENS TO WIN, IT WILL 
NOT TAKE THE MONEY, IT WILL" 
180 PRINT 
190 PRINT "JUST BET ON ANOTHER LANE. SO, NO MATTER 
HOW YOU SLICE IT, SOMEONE" 
200 PRINT 
210 PRINT "IS BOUND TO WIN. (YOU CAN USE REAL 
eas IN THIS GAME IF YOU WANT ToO.)" 
220 PRT 
300 PROT 
310 INPUT "HOW MANY WILL PLAY";A 
320 IF A<1 OR A>15 THEN 320 
330 PRINT "INITIALS, PLEASE"; 
340 FOR I=1 TO A 
350 INPUT A$(I):NEXT 
360 PRINT 
370 PRINT "YOU WILL NOW SELECT A LANE." 
380 I=1 
390 PRINT A$(1I):": LANE NUMBER": 
400 INPUT LA(I) 
410 IF LA(I)<1 OR LACI)>4 THEN 390 
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420 PRINT "BET WHAT AMOUNT?"; 

430 INPUT ACI) 

440 T=I+1 

450 IF I>A THEN 480 

460 PRINT 

470 GOTO 390 

480 CLS:GOSUB 1300:IF ZZ=1 THEN 530 

490 PRINT "IF MORE THAN ONE PLAYER WINS (SELECTION 
OF SAME LANE), ALL MONEY" 

500 PRINT "WILL BE DIVIDED AS EQUALLY AS POSSIBLE." 

530 PRINT: IF CB=1 THEN 960 

540 PRINT "PRESS ENTER TO START THE RACE:" 

550 INPUT A$:COLOR 14,6,10:CLS 

560 REM outer track 

570 S$=STRING$(80,219):LOCATE 1,1:PRINT S$:LOCATE 
6,1:PRINT S$ 

580 LOCATE 11,1:PRINT S$:LOCATE 16,1:PRINT S$ 

590 FOR X=2 TO 5:LOCATE X,1:PRINT CHR$(219):LOCATE 
X,80:PRINT CHR$(219) 

600 NEXT 

610 FOR X=12 TO 15:LOCATE X,1:PRINT CHR$(219): 
LOCATE X,80:PRINT CHR$(219) 

620 NEXT 

630 REM spot locations 

640 GOSUB 1200:GOSUB 1410:L=1:IR=7:IC=1 

650 LR(L)=IR:LC(L)=IC:RR(L)=IR:RC(L)=IC: PR(L)= 
TR-—5:PC(L)=IC+30:LP(L)=0 

660 IR=IR+1:IF L>=4 THEN 680 

670 L=L+1:GOTO 650 

680 FOR I=1 TO 4 

690 COLOR I:LOCATE LR(1T),LC(I):PRINT CHR$( 254) :NEXT 

700 REM start race 

705 PLAY "MF MS 03 LO C F A 04 L8 C L16 CC L8 C 03 
L8 AL16 AALS AFAF L4C" 

710 LP=0:X$=CHR$(219):PK=LR(1)+1 

720 T=INTCRND*4+1) :M=ABS(I-5) 

730 IF LC(I)>80 THEN 1000 ELSE LOCATE LR(I), 
LC(I):PRINT " ": 

740 IF ABS(LCC(I)-RC(1))>=60 THEN 1000 

750 LC(I)=LC(1)+INT(RND*15+1):IF LC(I)>=80 THEN 
GOTO 1000 

760 COLOR I:LOCATE LR(I),LC(I):PRINT X$:SOUND I*50,1 

770 IF M+1<>I AND M+1<>5 THEN 790 

780 GOTO 820 

790 IF LC(M+1)>80 THEN LC(M+1)=80 

795 LOCATE LR(M+1),LC(M+1):PRINT " " 
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800 LC(M+1)=LC(M+1)+INT(RND*44+1) :IF LC(M+1)>=80 
THEN GOTO 1000 
810 COLOR (M+1):LOCATE LR(M+1) ,LC(M+1):PRINT 
X$:SOUND (M+1)*50, 1 
820 IF M-1<>1 AND M-1<>0 THEN 840 
830 GOTO 870 
840 IF LC(M-1)>80 THEN LC(M-1)=80 
845 LOCATE LR(M-1) ,LC(M-1):PRINT " "; 
850 LC(M-1)=LC(M-1)+INT(RND*4+1):IF LC(M-1)>=80 
THEN GOTO 1000 
860 COLOR (M-1):LOCATE LR(M--1) ,LC(M-1):PRINT X$3: 
SOUND(M-1)*50, 1 
870 IF M+2<>5 AND M+#2<>6 THEN 890 
880 GOTO 720 
890 IF LC(M+2)>80 THEN LC(M+2)=80 
895 LOCATE LR(M+2) ,LC(M+2):PRINT " " 
900 LC(M+2)=LC(M+2)+INT(RND*4+1) :IF LC(M+2)>=80 
THEN GOTO 1000 
910 COLOR (M+2):LOCATE LR(M+2) ,LC(M 
SOUND(M+2)**50, 1 
920 IF LC(M)>80 THEN LC(M)=80 
925 LOCATE LR(M),LC(M):PRINT " " 
930 LC(M)=LC(M)+INT(RND*44+1):IF LC(M)>=80 THEN 
GOTO 1000 
940 COLOR M:LOCATE LR(M) ,LC(M):PRINT X$;:SOUND 
M50, 1 
950 GOTO 720 
960 CB=0:COLOR 14:LOCATE 18,1:PRINT "THE COMPUTER 
WILL PLACE THE AMOUNT OF ";USING AA$;AM 
970 RF=INT(RND*4+1) 
980 RF=INT(RND*4+1):PRINT:PRINT "ON LANE ";RF;"." 
985 MN(RF)=MN(RF)-+AM:AM=0 
990 GOTO 540 
1000 IF LC(1)>80 THEN LC(1)=80 
1005 LOCATE LR(T),LC(1):PRINT " "; 
1010 LC(I)=RC(I) 
1020 LP(I)=LP(1)+1:LOCATE PR(I),PC(I):COLOR 14: 
PRINT LP(I); 
1030 IF LP(I)>=10 THEN 1500 
1040 GOTO 720 
1200 COLOR 14:LOCATE 2,2:PRINT "LAPS - LANE 1:"; 
1210 LOCATE 3,2:PRINT "LAPS - LANE 2:"; 
1220 LOCATE 4,2:PRINT "LAPS - LANE 3:"'s 
1230 LOCATE 5,2:PRINT "LAPS - LANE 4:"'; 


1240 REM amounts bet per la 


CUuncts u per Lane 


1250 LOCATE 12,2:PRINT "LANE 1..... ee 
1260 LOCATE 13,2:PRINT "LANE 2..... “ 


ms 
aa 
N 

— 
gy 
a 
4 
= 
| 
cal 
oF 
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1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 


1530 
1540 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1725 
1730 
1740 


LOCATE 14,2:PRINT "LANE 3..... ee 
LOCATE 15,2:PRINT "LANE 4..... We 
RETURN 

REM amounts on lanes 

T=] 

FOR I=1 TO A 

IF LA(I)=T THEN 1350 

NEXT:GOTO 1370 

MN(T)=MN(T)+ACT) 

GOTO 1340 

T=T+1 

IF T>=5 THEN 1400 

GOTO 1320 

RETURN 

REM print amounts 
AAS="$$# ,##t # 
T=1:FR1=12:FC1=13 


COLOR 14:LOCATE FR1,FC1:PRINT USING AA$;MN(T) 


I=I+1:FRI=FR1+1 

IF I>=5 THEN RETURN 
GOTO 1440 

REM finish 

WW=1 


COLOR 30:LOCATE PR(I),PC(I)+10:PRINT "WINNER" 


;:FOR T=1 TO 3:SOUND 1000,1:SOUND 800, 1:NEXT 


FOR TU=1 TO 1000 
NEXT:COLOR 14 
IF WW>=6 THEN 1580 
WW=WW+1:GOTO 1520 
REM player lane select 
WW=0 
FOR T=1 TO A 
IF LA(T)=I THEN 1630 
NEXT:GOTO 1650 
WW=WW+1:TCWW)=T 
GOTO 1620 
FOR I=] TO 4:AM=AM+MN(T) :MN(I)=0 
NEXT: IF WW=0 THEN 1760 
COLOR 14:LOCATE 12,30:PRINT "WINNER(S):"; 
WXR=13:WXC=30 
FOR T=1 TO WW 
LOCATE WXR,WXC:PRINT A$(T(T)); 
IF WW>1 THEN PRINT ","; 
WXC=WXC+5 : NEXT 
IF WW=1 THEN 1790 
LOCATE 14,30:PRINT "EACH WINNER RECEIVES:"; 
LOCATE 15,30:PRINT USING AA$;AM/WW; 
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1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1910 
1930 
1940 
2000 
2010 
2020 
2030 
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AM=0:GOTO 1820 

LOCATE PR(1),PC(1)+13: 

PRINT "3 NO WINNERS ** "ys 
GOTO 1870 

LOCATE 14,30:PRINT,: 

PRINT "YOU WILL RECEIVE:"; 

GOTO 1740 

REM another 

LOCATE 7,1:PRINT,; 

INPUT "ANOTHER RACE (Y/N)"3A$ 

TF Ag="N" THEN 2000 

COLOR 7,0,0:CLS:ZZ=1:GOTO 360 
FOR TU=1 TO 1200:NEXT 

COLOR 14:LOCATE 19,1 

PRINT "IF ANOTHER RACE IS HELD, THE"; 
PRINT "COMPUTER WILL BET THE MONEY"; 
PRINT "ON A LANE IT SELECTS."; 
CB=1:GOTO 1820 

REM end 

CLS 

PRINT "FAREWELL 'TIL NEXT RACE." 
END 


Be Prepared for the IBM PC 


{UT ent 


10 
15 
20 
25 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
“345 
350 
360 
370 
380 
390 
400 


REM program title: BE PREPARED (PART I) 
V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 


WIDTH 
COLOR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


4O:KEY OFF 
15,11,10:CLS 
"BE PREPARED PART T) 


"IF YOU HAVEN'T DONE SO, READ AND" 
"FOLLOW ALL INSTRUCTIONS FOR PLAY." 
"YOU MUST UNDERSTAND EVERYTHING." 


"INSTRUCTIONS"; Q$ 


IF MID$(Q$,2,1)<>"E" THEN 400 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 


"THIS GAME TAKES PLACE IN a" 

" DISTANT OUTER SPACE" 

"LOCATION. YOU WILL SEE FOUR" 
"TUBES WITH THE TOP CLOSED AND" 
"THE BOTTOM OPEN FOR ENTRY. THESE" 
"ARE THE PORTS. YOUR VESSEL," 
"REPRESENTED BY AN ASTERISK, WILL" 
"BE LOCATED BELOW THE TUBES. IT" 
"WILL MOVE CONTINUOUSLY FROM LEFT" 
"TO RIGHT. ONE OF THE NUMERAL " 
"KEYS 1 AND 2 WILL PROPEL YOUR" 
"CRAFT INTO A TUBE, BUT YOU MUST" 


"PRESS ENTER TO CONTINUE:",X$ 


"GUESS WHICH KEY WILL DO THE JOB." 
"ONLY ONE KEY WILL WORK EACH TURN" 
"AND THE COMPUTER WILL INCREASE" 
"THE NUMBER OF KEYS YOU MUST " 
"CHOOSE BETWEEN EACH CYCLE (1.E.," 
ey TO! Sgr THEN “TO A. BC.) 

"YOU HAVE TWENTY VESSELS TO BRING" 
"SAFELY TO PORT. EACH VESSEL" 
"HAS A LIMITED AMOUNT OF FUEL." 
"IF YOU UNDERSTAND ALL INSTRUC—" 
"TIONS, PRESS ENTER TO PORT" 

"THE FIRST VESSEL:"; 

X$ 
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410 REM vessels/begin value 

420 V=20:DS=0: DK=0:VL=2 

430 REM tubes 

440 X=3:Y=13 

450 FOR T=¥ TO 1 STEP -1 

460 LOCATE T,X:PRINT CHR$(219):LOCATE T,(X+5): 
PRINT CHR$( 219) : NEXT 

470 FOR T=X TO X+5 

480 LOCATE 1,T:NEXT 

490 REM do four 

500 X=X+10 

510 IF X>=43 THEN 530 

520 GOTO 450 

530 REM bottom of ports 

540 W=1:X=3 

550 FOR T=W TO X 

560 LOCATE Y,T:PRINT CHR$(219):NEXT:IF P=1 THEN 600 

570 W=X+6:X=X+10 

580 IF W>=39 THEN k=40:P=1 

590 GOTO 550 

600 REM fuel 

610 F=200 

620 F$="FUEL REMAINING 

630 XR=16:XC=10 

640 FOR I=1 TO LEN(F$) 

650 LOCATE XR,XC:PRINT MID$(F$,1,1); 

660 XC=XC+1:GOSUB 1500 

670 NEXT: IF G=1 THEN RETURN 

680 QC=XC:QR=XR 

690 LOCATE QR,QC:PRINT F 

700 REM start locale 

710 LR=15:LC=1:V$="*":ZX=2550:PK=1 

720 M=LC+39:P=INT(RND*VL+1) :R=0 

730 LOCATE LR,LC:PRINT V$; 

740 REM by inkey$ 

750 X$=INKEY$ 

760 IF VAL(X$)=P THEN 900 

770 FOR T=1 TO 5:NEXT 

780 LOCATE LR,LC:PRINT " "; 

790 IF R=1 THEN 810 

800 LC=LC+1:GOTO 840 

810 LC=LC-1 

820 IF LC<=M THEN 720 

830 GOTO 850 

840 IF LC>=M THEN M=LC-39:R=1:VL=VL+1 

850 F=F-1:1F VL>=9 THEN VL=9 

860 IF F<=0 THEN 1200 
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870 LOCATE QR,QC:PRINT F;:LOCATE QR,QC+5:PRINT 
"TONS": 

880 IF INT(F/10)=F/10 THEN 1540 

890 GOTO 730 

900 REM port? 

910 J=1:ZX=500: PK=0 

920 LOCATE LR,LC:PRINT ""; 

930 LR=LR-1:I1F LR<=1 THEN 1000 

940 LOCATE LR,LC:PRINT V$; 

950 J=J+1:GOTO 1540 

960 DEF SEG=&HB800: IF PEEK((LR-2)*80+2*(LC-1)) 
<>32 THEN 990 

970 GOTO 920 

990 IF J<=2 THEN 1030 

1000 F$=" VESSEL DOCKED SAFELY " 

1010 G=1:GOSUB 630 

1020 DK=DK+1:GOTO 1070 

1030 Ff="V ESSEL DESTROYED" 

1040 FOR T=1 TO 500:NEXT:LOCATE LR,LC:PRINT " "; 

1050 G=1:XR=20:XC=5:GOSUB 640 

1060 DS=DS+1 

1070 GOSUB 1600 

1080 F$=STRING$(32,32):XR=20: XC=5 

1090 GOSUB 640 

1100 V=V~1:G=0 

1110 IF V<=0 THEN 1300 

1120 VL=VL+1 

1130 IF VL>=9 THEN VL=9 

1140 GOTO 600 

1200 REM fuel exhausted? 

1210 Fée"F UEL EXHAUSTED" 

1220 G=1l:XR=20:XC=5 

1230 GOSUB 640 

1240 FOR T=1 TO 500:NEXT 

1250 GOTO 1030 

1300 REM all vessels in 

1310 G=1:XX=1 

1320 FS="A LL VESSELS IN u 

1330 XR=16:XC=5:GOSUB 640:GOSUB 1600:XR=XX:XC=5:CLS 

1340 F$="YOU HAVE DOCKED" 

1350 GOSUB 640:PRINT DK; :F$="VESSELS" 

1355 XC=XC+4 

1360 GOSUB 640:XR=XX+1:XX=XX+1:XC=5 

1370 F$="YOU HAVE DESTROYED" 

1380 GOSUB 640:PRINT DS;:F$="VESSELS" 

1385 XC=XC+3 

1390 GOSUB 640:XR=XX+1:XX=XX+1:XC=5 
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1400 
1410 
1420 
1500 
1510 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
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F$="END OF MISSION..." 
GOSUB 640 

END 

REM sound routine 

SOUND 10*(ASC(MID$(F$,1,1))4+10),1:SOUND 32767,1 
RETURN 

REM more sound 

SOUND ZX,1:SOUND 32767,1 
IF PK=1 THEN 1580 

GOTO 960 

IF F<=100 THEN ZX=ZX-100 
GOTO 890 

REM for message Loop 

FOR T=1 TO 1200:NEXT 
RETURN 


The Course for the IBM PC 


1O REM program title:THE COURSE 
20 KEY OFF:COLOR 7,2,3:CLS:WIDTH 40:PRINT TAB(10); 
30 PRINT ">>> THE COURSE <<<" 
40 PRINT 
50 INPUT "REQUIRE INSTRUCTIONS"; xX$ 
60 IF X$="N" OR X$="NO" THEN 210 
70 PRINT 
80 PRINT "THE COURSE WILL REQUIRE THAT You" 
90 PRINT "USE TOP NOTCH REFLEXES TO CONTROL" 
100 PRINT "YOUR VEHICLE TO A DISTANCE OF" 
110 PRINT "10 LAPS. THE COURSE WILL BE BOTH" 
120 PRINT "STRAIGHT AND WINDING. YOU WILL" 
130 PRINT "CONTROL YOUR VEHICLE WITH THE" 
140 PRINT "LEFT AND RIGHT ARROW KEYS." 
150 PRINT "THE SLIGHTEST CONTACT TO THE" 
160 PRINT "EDGE OF THE TRACK WILL CAUSE" 
170 PRINT "AN ACCIDENT, AND A HIT" 
180 PRINT "ADDED TO YOUR SCORE." 
190 PRINT:PRINT:PRINT "STRIKE A KEY..." 
200 X$=INKEY$:IF X$="" THEN 200 
210 CLS:T=1:AT=1 
220 INPUT "FIRST NAME OF DRIVER"; D$ 
225 IF D$="" THEN PRINT:GOTO 220 
230 PRINT D$;" STRIKE A KEY TO BEGIN..." 
240 X$=INKEY$:IF X$=""" THEN 240 
245 IF T>=2 THEN CLS:GOTO 260 
250 CLS:DIM CX(26) ,CY(26) 
260 LOCATE 1,1:PRINT "DRIVER: ":D$;:GOSUB 1000 
265 CC=0:LP=0:LL=0:HI=0:REM the course 
270 CX=1940:CY=CX+18:J=219:C=1 
275 Cl=CX+6:C2=C1+2:REM the vehicle 
280 KY=0:IF CX<=1 OR Cl<=1 THEN 400 
285 IF CC=1 THEN 420 
290 DEF SEG=&HB800:POKE CX,J:POKE CY,J 
295 CX(C)=CX:CY(C)=CY:REM to blank old course 
300 CX=CX-~80:CY=CY-—80 
305 C=C+1 
310 DD=2* INTC RND*2+1) 
‘315 KY$=INKEY$:IF LEN(KY$)=2 THEN KY=ASC(MID$ 
(KY$,2,1)) 
320 IF DD=2 THEN 340 
330 CX=CX+DD~2:CY=CY+DD-2:GOTO 360 
340 DD=-DD 
350 CX=CX+DD:CY=CY+DD 
360 REM check for movement of vehicle 
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370 
380 
390 
400 
405 
410 
415 
420 
430 
440 
450 
460 


470 
480 
485 
500 
505 


510 
520 
530 
535 


540 
550 
560 
600 
610 
620 
630 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
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IF KY=75 THEN 500 

IF KY=77 THEN 530 

GOTO 280 

CC=1:LP=LP+1 

IF (LP/10)=.6 THEN LL=LL+1:LP=1 

LOCATE 2,1:PRINT "LAPS=";LL; 

IF LL>=10 THEN 700 ELSE GOTO 270 

DEF SEG=8HB800:POKE CX(C),32:POKE CY(C),32 
POKE C1,32:POKE C2, 32 

IF C2<=156 THEN 290 

Ci=C1-80:C2=C2-80 

POKE C1,204:POKE C2,185:POKE C1+1,36:POKE 
C2+1, 36 

CL=PEEK(C1-2) :CR=PEEK (C2+2) 

IF ABS(CL+CR)<>64 THEN 600 

GOTO 290 

REM vehicle movement (left) 

DEF SEG=&HB800:POKE C1,32:POKE C2,32:POKE 
C1+1,39:POKE C2+1,39 

Cl=C1-2:C2=C2-2 

GOTO 280 

REM vehicle movement (right) 

DEF SEG=&HB800:POKE C1,32:POKE C2,32:POKE 
C1+1,39:POKE C2+1,39 

IF C2<=84 THEN 280 

Cl=C1+2:C2=C2+2 

GOTO 280 

REM hits to vehicle 

HI=HI+1 

LOCATE 3,1:PRINT "HITS="3HI; 

GOTO 290 

REM finish 

LOCATE 4,1:PRINT STRING$(40, 32) 

IF HI=0 THEN 800 


PRINT "YOU DIDN'T MAKE THE";LL; 
PRINT "WITHOUT ERROR. YOU TOOK 
PRINT "TOTAL OF";HI;"HITS...." 

PRINT "TRY AGAIN, ";D$; 

INPUT X$ 

IF X$="N" OR X$="NO" THEN 1100 

AT=AT+1:PRINT:GOTO 830 

PRINT "NOT BAD, NO HITS AT ALL" 
PRINT "THINK YOU MIGHT WANT TO" 
GOTO 760 


TRON: TF T(I)<=T(I+1)THEN 8800K 


860 YS=T(I):T(1)=T(I+1):T(I+1)=¥S 

870 Z=1 

880 I=I+1:IF I>=T THEN 900 

890 GOTO 850 

900 IF Z=1 THEN 840 

910 BS=T(1) 

920 T=T+1:IF T>=5 THEN BS=T(1):T=3 

930 PRINT 

940 PRINT:GOTO 230 

1000 REM message 

1010 IF T<=2 THEN 1040 

1020 LOCATE 1,28:PRINT "BEST SCORE: ";BS; 
1030 LOCATE 2,28:PRINT "ATTEMPTS: ";AT; 
1040 RETURN 

1100 REM end 

1110 CLS 

1120 PRINT "END OF PROGRAM RUN..." 
1130 END 
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V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

REM program title <TRAPPED> 

CLS:KEY OFF:CLEAR 100:DIM AA(12) ,PI(12) ,1$(12) 
:WIDTH 40 

COLOR 1,0:PRINT TAB(15)CHR$(174);:COLOR 20, 
O:PRINT "TRAPPED"; :COLOR 1,0:PRINT CHR$(175) 
COLOR 2,0:PRINT: INPUT "LIST INSTRUCTIONS"; W$ 
IF Wo="Y" OR Wh="YES" THEN GOSUB 3500 
CLS:GOSUB 3300:TU=1 

QQ=1:MM=0:CR=0 
$1=440:S2=S1+50:CC=0:BR=0:TP=10000! :TR=TP 
REM border graphics 

X=1920: Y=X+78:C=219:U=0 

DEF SEG=&HB800;:FOR I=k TO Y STEP 2:POKE T, 
222:POKE (1+1),2 

POKE I-1920,222:POKE (I-1919),2:NEXT 

FOR T=2 TO 22 

POKE (1*80) ,222:POKE ((I*80)+1) ,2:POKE 
(1*80+78) ,222:POKE ((1*80)+79) ,2:NEXT :GOSUB 3450 
COLOR 9,0 ‘rem inner graphics 

IN=X-160 

R=IN+2* INT (RND*39+1) :RI=SR:L=2*INT(RND*2+1 ) 
FOR I=IN TO R STEP 2:POKE I[,C 

IF L=l AND U<=3 THEN POKE I-80,C 

NEXT 

R2=2* INT(RND*7+1) :R3=R2+2* INT CRND*10+1):GOTO 500 
FOR I=R1+R2 TO R1+R3 STEP 2 

POKE 1,C:NEXT 

GOTO 560 

U=U+1 

IF U<>5 THEN 180 

REM graphics from right side 

FOR J=1 TO INTCRND*#10+1) 

FOR I=0 TO 4 

IF R(I)=0 THEN 310 

POKE R(I),C:R(1)=R(1)-2 

NEXT I,J 

REM start position 

P=2* INT (RND*842479) 

IF PEEK(P)<>32 OR PEEK(P+4)<>32 THEN 330 

IF (PEEK (P+80)+PEEK(P-80) )=438 THEN 330 
CP=P+4:POKE P,220:POKE (P+1),14:POKE CP,223:POKE 
(CP+1) ,14 


370 
380 
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400 
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420 
430 
440 
442 
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REM movement of computer piece 
53=210:54=880 

IF PEEK(P-80)=32 THEN A=1:GOTO 440 
SOUND $1,3:SOUND $2,3: 

IF PEEK(P+80)=32 THEN A=2:GOTO 440 

IF PEEK(P-4)=32 THEN A=3:GOTO 440 

IF PEEK(P+4)=32 THEN A=4:GOTO 440 
GOTO 810 

POKE P,32:1F PEEK(CP)=32 THEN 1700 
FOR H=1 TO 100:X$=INKEY$:IF LEN(X$)=2 THEN 900: 
NEXT 

GOTO 1100 

ON A GOTO 460,470, 480,490 

P=P-—80:POKE P,220:POKE P+1,12:MM=0:GOTO 710 
P=P+80:POKE P,220:POKE P+1,12:MM=0:GOTO 400 
P=P~-4:POKE P,220:POKE P+1,12:GOTO 760 
P=P+4:POKE P,220:POKE P+1,12:GOTO 420 
REM within limits (board graphics) 

IF ABS((R1+R3)-IN)>=X THEN 200 

REM gap too small 

IF ABS((R1+R2)-R)<=4 THEN 200 

IF R3<=9 THEN 200 

GOTO 210 

REM poke more to right 

IF ABS(CIN-78)-(R1+R3) )>=10 THEN 600 
X=X-240: IN=X-160:POKE IN,C 

GOTO 240 

R4=2* INT(RND*8+1):IF R4<=6 THEN 600 
R4=R4+R1+R3 

R5=R4+2* INT CRND*10+1) 

IF ABS(R5-R4)<=2 THEN 620 

IF ABS(R5-IN)>=62 THEN 680 

FOR I=R4 TO R5 STEP 2:POKE 1,C 

IF L=l AND U<>4 THEN POKE (I-80) ,C 
NEXT 

REM variables (right side graphics) 
FF=IN~76:R(U)=FF:N(U)=ABS(FF-R5) 

GOTO 580 

REM down/up-search left/right 

IF PEEK(P-4)=32 THEN 410 

IF PEEK(P+4)=32 THEN 420 

IF A=l THEN 390 

GOTO 400 

REM left/right search down/up 

IF PEEK(P-80)=32 THEN 390 

IF PEEK(P+80)=32 THEN 400 

IF A=3 THEN 410 

GOTO 420 
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810 REM trapped(counter) 

815 ACQQ)=A 

820 IF ACQQ)=A(QQ-1) THEN 880 

830 IF MM>=8 THEN 1240 

840 IF MM>=4 THEN S3=534+10:CR=CR+10 

860 QQ=QQ+1:IF QQ>=3 THEN QQ=1 

870 GOTO 390 

880 IF PEEK(P+4)=223 OR PEEK(P-4)=223 THEN MM=MM+1 

890 GOTO 830 

900 REM user piece/move per key 

910 FOR H=1 TO 100:XX$=INKEY$:IF LEN(XX$)=2 THEN 
X$=MID$(XX$,2,1) :NEXT 

920 IF ASC(X$)=80 THEN 970 

930 IF ASC(X$)=72 THEN 990 

940 IF ASC(X$)=77 THEN 1010 

950 IF ASC(X$)=75 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP+80)<>32 THEN 960 

980 POKE CP,32:CP=CP+80:GOTO 1050 

990 IF PEEK(CP-80)<>32 THEN 960 

1000 POKE CP,32:CP=CP-80:GOTO 1050 

1010 IF PEEK(CP+4)<>32 THEN 960 

1020 POKE CP,32:CP=CP+4:GOTO 1050 

1030 IF PEEK(CP-4)<>32 THEN 960 

1040 POKE CP ,32:CP=CP-4 

1050 POKE CP,223:POKE CP+1,14:TP=TP-1 

1060 SOUND S1,3:SOUND 82,3 

1070 REM users moves(counter ) 

1080 CC=CC+1:IF CC>=10 THEN CC=0:GOTO 450 

1090 GOTO 900 

1100 REM sound/computer piece 

1110 REM charge rate (diminish by plus) 

1120 SOUND S1,3:SOUND S4,3 

1130 CR=CR+1 

1140 IF CR>=100 THEN GOSUB 1450:GOTO 1180 

1150 IF CR>=99 THEN $4=54+10 

1170 GOTO 450 

1180 REM recharge computer piece 

1190 POKE P,220:POKE P+1,12:FOR C=1 TO ((S4*.2) 
~100)STEP 50 


1200 SOUND 100*C,3:SOUND (S2-100),3 
1210 NEXT:CR=0:54=880:POKE P, 32 
1220 GOSUB 1510:GOSUB 3450:GOTO 450 
1240 REM trapped? 

1250 REM check charge rate first 
1260 IF CR>=925 THEN 1280 

1270 GOTO 1290 
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1300 
1310 
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CR=1000:GOTO 1370 

REM trapped computer piece 

L=0 

POKE P,32:FOR TI=1 TO 100:NEXT 
POKE R,220:POKE R+1,12:FOR TI=1 TO 50 
SOUND S1:SOUND 82 

NEXT 

LeL+1:IF L<=2 THEN 1310 

GOTO 1600 

GOSUB 1450:POKE P,32:MM=0 

P=P+6 

GOTO 450 

REM message 

MG=20:M$="'RECHARGING" 

FOR T=1 TO LEN(M$) 

POKE MG,ASC(MID$(M$,1,1)):POKE MG+1,132 
MG=MG+2: NEXT 

POKE MG ,32:RETURN 

MG=20 

FOR I=1 TO LEN(M$) 

POKE MG,222:POKE MG+1,2 

MG=MG+2: NEXT 

POKE MG ,222:RETURN 

REM message (trapped) 

MG=20 

M$="3°TRAPPED SH" 

GOSUB 1470 

GOTO 1910 

REM user "burned" 

MG=20 

M$='""* USER BURNED *" 

GOSUB 1470 

REM leave user position as-is 
L=0:MM=0 

POKE CP,32:FOR TI=1 TO 100:NEXT 
POKE CP,223:POKE CP+1,14:FOR TI=1 TO 5 
SOUND S1,3:SOUND (S1-180) ,3 
NEXT: IF L<=1 THEN L=L+1:GOTO 1760 
BR=BR+1:GOSUB 1510:GOSUB 3450 

IF BR>=6 THEN GOSUB 1830:GOTO 1870 
GOTO 445 

L=0 

FOR I=1 TO 45 STEP 9 

SOUND $2,3:SOUND (1I*100),3 
NEXT: CLS: RETURN 

PRINT 

COLOR 2,0:PRINT:PRINT "YOU'VE BEEN BURNED "; 
BR;" TIMES" 


387 


1890 PRINT "SUCKER! !!";:TP=0 


1900 PRINT "YOU'RE OUT OF THE GAME...''3:GOTO 2000 


1910 REM trapped 

1920 GOSUB 1830 

1930 PRINT "YA GOT ME TRAPPED, TURKEY!!!" 
1940 PRINT "YOUR TOTAL POINTS NOW EQUAL "; 
1950 PRINT TP 

1960 PRINT "YOU MADE A TOTAL OF ";TR-TP;" MOVES" 
1970 PRINT "BEFORE TRAPPING ME..... u 
1980 FOR H=1 TO 2:SOUND S1,3:SOUND (S1*2) ,3:NEXT 
2000 REM player advance 

2010 PI(TU)=TP 

2020 IF TU=N THEN 2100 

2030 TU=TU+1 

2040 PRINT "PRESS ENTER WHEN READY, ";I$(TU); 
2050 INPUT W$:CLS 

2060 GOTO 70 

2070 REM all played 

2110 REM sort numbers/players 

2120 IF N=l THEN 2220 

2130 F=O0:AA=1 

2140 IF PICAA)>=PICAA+1) THEN 2190 

2150 P=PICAA):PICAA)=PI(AA+1) 

2160 PICAA+1)=P:I$=I1$( AA) 

2170 I$CAA)=I$(AAt+1) :I$CAA+] )=I$ 

2180 Fel 

2190 IF AA<N THEN AA=AA+1:GOTO 2140 

2200 IF F=1 THEN 2130 

2210 GOTO 2260 

2220 PRINT "YOU'VE PLAYED BY YOURSELF, AGAINST" 
2230 PRINT "THE COMPUTER. YOU WERE BURNED ";BR 


2240 PRINT "TIMES. FINAL TRAPPING SCORE: ";PI(TU) 


2250 GOTO 2330 

2260 T=1 

2270 PRINT "BEST TRAPPER..... "-T$(1) 

2280 PRINT “TOTAL POINTS=";PI(1) 

2290 PRINT “FOLLOWING ";I$(1) 

2300 FOR I=2 TO N:PRINT I$(1) 

2310 PRINT " WITH A SCORE OF: "; 

2320 PRINT PI(T) 

2330 FOR Ti=1 TO 1000:NEXT TI,I:PRINT 

2340 PRINT "END OF PROGRAM RUN...." 

2350 FOR I=1 TO 100:SOUND S1,3:SOUND ((S1-50)+ 
(I*10)),3 

2360 NEXT: PRINT 

2370 PRINT "UNLESS ALL WANT TO PLAY 

2380 PRINT "IF SO, ENTER <RUN> (THE <F1l> KEY)." 


r AGAII ago" 
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2390 
2400 
2410 
3300 
3310 
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3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
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3480 


3485 
3490 


3500 
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3520 
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3540 
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3570 


3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 


3660 
3670 


PRINT: FOR TI=1 TO 1500:NEXT 
PRINT "END" 
END 
REM player numbers/names 
PRINT "ENTER THE NUMBER OF PLAYERS:"; 
INPUT N 
IF N<=O OR N>ell THEN 3310 
PRINT "NOW ENTER THE '"3N;' PLAYERS'" 
PRINT "FIRST NAMES" 
FOR I=1 TON 
INPUT I$( 1): NEXT 
PRINT 
PRINT "CURRENT PLAYER'S NAME WILL BE" 
PRINT "PRINTED AT THE BOTTOM OF" 
PRINT "GAME BOARD," 
FOR TI=1 TO 1200:NEXT 
CLS 
RETURN 
REM player 
DEF SEG=&HB800:MG=1920:MF=MG 
FOR I=1 TO LENCI$(TU)) 
POKE MG ,ASC(MID$(I$(TU) ,I,1)):POKE MG+1,142: 
MG=MG+2 
NEXT: POKE MG,32:FOR H=1 TO 500:NEXT H 
MG=MF:FOR I=1 TO LEN(I$(TU)):POKE MG+1,14 
:MG=MG+2:NEXT I:POKE MG,32:RETURN 
REM instructions 
CLS:COLOR 2,0:PRINT "UP TO 10 PLAYERS CAN TRY" 
PRINT "TO OUTWIT THE COMPUTER AND 
PRINT "MANEUVER IT'S PIECE INTO A SITUATION" 
PRINT "WHERE IT WILL BECOME TRAPPED." 
PRINT "THE COMPUTER'S PIECE WILL BE A" 
PRINT "BLOCK LIKE THIS: ";:COLOR 12,0:PRINT 
CHR$(220);:COLOR 2,0:PRINT " YOURS" 
PRINT “WILL LOOK LIKE THIS: '';:COLOR 14,0: 
PRINT CHR$(223)3;:COLOR 2,0 
PRINT "THE COMPUTER WILL MOVE" 
PRINT "ITS PIECE ALL AROUND THE GAME" 
PRINT "BOARD, CHANGING DIRECTION WHEN IT" 
PRINT "SENSES AN OBSTACLE. YOU WILL" 
PRINT "FOLLOW THE COMPUTER'S PIECE OR" 
PRINT "MANEUVER IT TO A SECTION" 
PRINT "OF THE GAME BOARD WHERE IT WILL BE" 
PRINT: PRINT "PRESS ENTER TO CONTINUE"; : INPUT 
W$:CLS 
PRINT "TRAPPED, MEANING THAT IT CAN ONLY MOVE" 
PRINT "LEFT AND RIGHT. THE COMPUTER'S PIECE" 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"WILL CONTAIN A 'CHARGE’. IF YOU" 
"SIMULTANEOUSLY LAND ON THE SAME SPOT" 
"YOU'LL GET 'BURNED'. " 

"SIX BURNS AND YOU'RE" 

"QUT OF THE GAME. YOU WILL MOVE" 
*YOUR PIECE USING ALL FOUR ARROW" 
"KEYS. WHEN YOU MOVE, THE COMPUTER" 
"WILL BLANK IT'S PIECE. YOU" 

"WILL BE ALLOWED ONLY 10 CON-" 
"SECUTIVE MOVES AT ONE TIME." 

"ANY TIME YOU WISH TO MOVE YOUR" 
"PIECE, HOLD DOWN ANY ARROW KEY" 
"AND PRESS THE <SPACE BAR>." 

INPUT "PRESS ENTER TO CONTINUE" ,W$ 


CLS:PRINT "POINTS WILL BE DETERMINED BY HOW" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"MANY MOVES IT TAKES THE USER" 

"TO TRAP THE COMPUTER'S PIECE." 
"REMEMBER, TO TRAP THE COMPUTER'S" 
"PIECE, ONLY ALLOW IT TO MOVE" 
"LEFT AND RIGHT." 

INPUT "PRESS ENTER TO START" ,W$ 


CLS : RETURN 


Rainy Daze for the IBM PC 
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REM program title: RAINY DAZE 


V$=RIGHT$(TIME$,2): ‘use PC clock to seed 


random number generator 
V=VAL(V$) 

RANDOMIZE V 

CLS: WIDTH 40:KEY OFF 


INPUT 
INPUT 
PRINT 


IF P>= 


INPUT 


"INSTRUCTIONS"; A$ 
"PLAYERS";P:IF P=0 THEN 40 
"THE";P;"PLAYERS 'INITIALS:" 
1] THEN 20 ELSE FOR I=1 TO P 
N$(1) :NEXT 


IF A$<>"y" AND A$<>"YES" THEN 340 
REM instructions 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
T=1 


"THIS PROGRAM IS DESIGNED TO" 
"HELP YOU THROUGH YOUR WORST" 
"DAYS, BY MAKING THEM WORSE! !" 
"ACTUALLY, THIS PROGRAM WILL" 
"TEST YOUR ABILITY TO FOLLOW" 
"NUMBERS, SOMETIMES IN SEQUENCE." 
"THE NUMERALS 1 THROUGH 660 WILL" 
"RACE ACROSS AND FILL THE VIDEO." 
"WHEN A NUMERAL APPEARS THAT IS" 
"NOT SUPPOSED TO BE THERE, HOLD" 
"THE <CTRL> KEY FOR A SHORT" 
"TIME UNTIL THAT NUMERAL IS" 
"BLOCKED OUT." 


"ENTER"; X$ 


"POINTS WILL BE GIVEN ON THE BASIS" 
"OF HOW MANY OUT-OF-SEQUENCE NUMERALS" 


"YOU HAVE DETECTED AT THE END OF" 
"THE COUNT, 660." 


"REMEMBER TO KEEP GOOD EYE CONTACT " 


"WITH THE SCREEN...":PRINT 


IF P=] THEN 390 


PRINT 
INPUT 


N$(I);", YOU WILL NOW PLAY:" 
"PRESS ENTER, PLEASE:",X$ 


GOTO 410 
PRINT "WHEN READY, ";N$(P);", PRESS" 
INPUT "THE ENTER KEY:",X$ 


CLS:N=0:N1=0:TT=500:DEF SEG=8H40:POKE &H17,0 


AR=1:AC=1:AB=AC:M=30:L=2:G=0 
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DEF SEG=&H40:K=PEEK(&H17):GOTO 550 
LOCATE AR,AC:PRINT N; 

FOR T=1 TO TT+IT 

NEXT: AC=AC+5 

IF AC>=M THEN 490 

GOTO 430 

AR=L: AC=AB: L=L+1:TT=TT-15:G=0 

TF L>=24 THEN 520 

GOTO 430 

FOR T=1 TO 1000:NEXT 

CLS 

GOTO 420 

REM change or leave 

IF K=4 THEN NJ=1:GOTO 690 

N=N+1 

N1l=N1+1:IF Nil<=2 THEN 610 
J=INT(RND*2):IF G=1 THEN J=0:N=N1 
IF J=1 THEN N=N+1:G=1 

IF K=O AND ABS(N-N1)<>0 THEN Y=Y+1 
IF NJ=1 THEN NJ=0:GOTO 640 

IF N1>=661 THEN 800 ELSE GOTO 440 
Ni=N1+1 

IF AC-5<=0 THEN LOCATE AR-~1,40-AC-—5:PRINT 
STRING$(5,143);:GOTO 660 

LOCATE AR,AC-5:PRINT STRING$(5,143); 
REM pause before cont. 

FOR T=1 TO 200:NEXT:K=0 

GOTO 440 

IF ABS(N=N1)=0 THEN 710 

Y=Y¥~-1:GOTO 720 

Y=Y+1 

DEF SEG=&HB800: Al=PEEK( (AR~1)*804+2%(AC-7) ) 
A2=PEEK( (AR-1)*80+2#(AC-9) ) 

IF Al=143 AND A2=143 THEN 760 

GOTO 420 

CLS: Y=¥+2 

PRINT "QUIT HOLDING DOWN THE <CTRL>" 
PRINT "KEY!! LET GO, YOU MANTACI" 
FOR T=1 TO 1200:NEXT:CLS:GOTO 620 
REM player advance 

YY(T)=Y:Y=0:CLS 


T=I+1 

IF I>P THEN Nl=N1-1:GOTO 850 
GOTO 360 

REM final 

PRINT "PLAYERS AND THEIR POINTS" 


PRINT "ARE AS FOLLOWS:" 


880 
890 
900 
910 
920 
930 
940 
950 
960 


FOR I=1 TO P 
PRINT N$C(I);" IDENTIFIED "; 


IF YY(i)=0 THEN PRINT "ALL NUMERALS.":GOTO 930 


IF YY(1I)<O THEN YY(I)=-YY(T) 
PRINT N1~YY(1) ; "NUMERALS." 
NEXT 

PRINT 

PRINT "END OF PROGRAM." 

END 
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REM program title:general store 

CLEAR 500 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

DEF SEG=&HB800:WIDTH 40:CLS:PRINT TAB(10); 
PRINT "GENERAL STORE":R$="NEXT " 

DIM N$(15),1$(31),1(31) 

DIM L(31),PR(31),TP(15):REM instructions 
PRINT "YOUR INSTRUCTIONS ARE SIMPLE AND" 
PRINT "STRAIGHT-FORWARD: I WILL GIVE" 

PRINT "YOU A LIST OF DIFFERENT ITEMS" 

PRINT "AND THEIR PRICES. YOU IN TURN" 

PRINT "WILL ENTER THE TOTAL PRICE OF ALL THE" 
PRINT "ITEMS. THAT IS, IF I SAY $2.50," 
PRINT "MILK, AND THEN SAY $0.80 BREAD" 

PRINT "YOU MUST THEN ENTER THE TOTAL" 

PRINT "OF $2.50 + $0.80 ($3.30). ALL" 

PRINT "OF YOUR ENTRIES WILL BE THROUGH" 
PRINT "THE COMPUTER'S 'INKEY$' FUNCTION." 
PRINT "DON'T PRESS <ENTER> AND DON'T ENTER" 
PRINT "THE DOLLAR SIGN.":PRINT:PRINT "STRIKE 
A KEY TO CONTINUE" 

GOSUB 3000:CLS:G$="##, ###" 

PRINT "ENTER ONLY THE NUMBERS AND THE" 

PRINT "DECIMALS. AFTER 10 ITEMS WE WILL" 
PRINT "TAKE A SHORT BREAK, THEN I WILL" 
PRINT "GIVE YOU 10 MORE. WE WILL STOP" 
PRINT "ONLY AFTER 30 ITEMS HAVE BEEN" 

PRINT "TOTALLED. YOUR POINTS WILL BE" 

PRINT "DETERMINED BY THE ACCURACY OF YOUR" 
PRINT "TOTAL. TF CORRECT, THE TOTAL WILL BE" 
PRINT "YOUR POINTS. IF INCORRECT, ALL ENTRIES" 
PRINT "MISSED WILL BE SUBTRACTED FROM YOUR TO-" 
PRINT "TAL, YOU WILL HAVE A TIME LIMIT IN" 
PRINT "WHICH TO ENTER THE TOTAL, SO LAY" 
PRINT "DOWN THE PENCIL AND THE CALCULATOR!" 
REM begin 

PRINT "STRIKE A KEY TO BEGIN" 

GOSUB 3000:CLS 

INPUT "HOW MANY PLAYERS (1-10)";P 

IF P<i OR P>10 THEN 370 

PRINT "ENTER";P;"PLAYERS' FIRST NAMES:" 

REM names 


410 
420 
425 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
645 
650 
660 
665 
670 
680 
690 
700 
710 
720 
725 
730 
735 
740 
750 
760 
770 
780 
800 
810 
820 


AP=220:FOR I=1 TO P 

INPUT N$(1T):NC1I)=1:NEXT:N=1:AR=3:AC=30 
AQ=AP+80:IF P=1 THEN Y=1:N=2:GOTO 470 
PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT "A RANDOM FASHION. THERE WILL" 
PRINT "BE NO SET ORDER OF PLAYERS." 
GOSUB 2800:PRINT ‘player 

IF EE=1 THEN 1530 ‘final 
Q$=N$(Y):TA=0: JI=0 

PRINT Q$;" WILL NOW PLAY:" 

PRINT "PRESS THE ENTER KEY TO BEGIN"; 
INPUT X$:PRINT 

CLS:PRINT "HOW FAST IS YOUR ADDITION," 
PRINT Q$;'272" 

REM read all items/prices 

FOR I=1 TO 30:READ I$(1):L(1T)=I:NEXT 
FOR I=1 TO 30:READ PR(I):NEXT:GOTO 2500 
D=I-1:DD=(D/3) :U=1:D$="$##. ##" :F$="$" 
REM select items randomly 

IF U>DD THEN PRINT:PRINT:GOTO 1100 
X=INT(RND*30+1) 

IF L(X)=0 THEN 600 ‘used 
T=X:PR=PR(T):T$=I1$(T) 

IF U=]1 THEN YU=PR 

TA=TA+PR ‘total amount/current item 
TA$S=STR$(TA) "total to string 
IF U=1 THEN GOSUB 2900 

IF U=1 THEN CLS ELSE IF U>1 THEN 670 
PRINT TAB(1)"PRICE"; TAB(12)" ITEMS"; 
PRINT TAB(30)"PRICES": 

PRINT TAB(1) USING D$;PR; 

PRINT TAB(12);T$ 

IF U<=1 THEN 710 

RR=1 ‘continue print/entries 
L(X)=0:U=U+1:KK=0:NE=1 

IF RR<>1 THEN 580 

LOCATE AR,AC:PRINT F$ 

X$=INKEY$:IF KK<=15 AND X$<>"" THEN 1040 
IF X$=""." THEN 880 


IF X$="" THEN 760 

GOTO 800 

KK=KK+1 ‘time expired? 

IF KK>=400 THEN W$=""':GOTO 1000 
POKE AP,220:GOTO 730 

REM entry 

POKE AP,ASC(X$): TY(NE)=VAL(X$) 
AP=AP+2 "poke location 
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830 
840 
850 
860 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1008 
1010 
1020 
1030 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
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NE=NE+1 "number entry 

IF NE=LEN(TA$) THEN 860 

GOTO 730 

GOTO 910 ‘all entries in 

REM decimal 

POKE AP,ASC(X$) 
TY(NE)=1000:GOTO 820 

REM compile entries 

V=NE-1:IF V=9 THEN V=10 

FOR I=1 TO V 

IF TY(1)=1000 THEN 970 
W$=WS4STR$(TY(T)) 
TY(1)=0:NEXT:GOTO 990 

W$=W$+"." 

GOTO 960 

W=VALC(W$) :W$=STR$(W) 

IF W$<>TA$ THEN PI=PI+PR:JI=JI+1 
IF U=3 AND JI<>0 THEN PI=PI+PR:JI=JI+1 
TF PEEKCAP)=220 THEN POKE AP, 32 
POKE AP+2,32:W$="": AR=AR+1 
AP=AQ: AQ=AQ+80 


GOTO 590 ‘another item 
REM slow down a little 
POKE AP,32 

GOTO 730 


REM points/player advance 

IF PI<>0 THEN 1200 

FOR I=1 TO LEN(TA$) 

IF MID$(TA$,I,1)="." THEN 1150 
K$=K$+MID$(TA$,1I,1) 

NEXT 

K=VAL(K$) 

GOSUB 1430 

TPCY)=TP(Y)+K 

GOTO 1320 

REM missed items 

TA$=STR$(PI):FOR I=1 TO LEN(TA$) 

IF MID$(TA$,1,1)="." THEN 1240 
K$=K$+MID$(TA$,I,1) 

NEXT: K=VAL(K$):GOSUB 1430 

TP(Y )=TP(Y)-K 

PRINT "YOU HAVE MISSED TOTALS ON "JI 
PRINT "ITEMS, ';Q$;". THESE ITEMS CAME" 
PRINT "TO A TOTAL OF $";TA$;". YOU ARE" 
PRINT "MINUS THAT AMOUNT. YOUR SCORE" 
PRINT "IS NOW ";3USING G$;TP(Y) 

GOTO 1350 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1535 
1540 
1550 
1560 
1570 
1580 
1590 
1595 
1600 
1610 
1650 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


PRINT "YOU HAVE SUCCESSFULLY ENTERED" 
PRINT "ALL TOTALS, ";Q$;". YOUR POINTS" 
PRINT "ARE NOW: ";USING G$;TP(Y) 

K=0: JI=0:PI=0:TA$="":K$="™ 
U=1:D1=D1+10:IF Dl=20 THEN R$="LAST" 
AP=220: AQ=AP+80: AR=3: AC=30: RR=0: PRINT 
IF D1>=30 THEN 1500 

PRINT "TAKE A SHORT BREAK, THEN WE'LL" 
PRINT "ATTEMPT THE ";R$;" SET OF ITEMS." 
FOR I=1 TO 5000:NEXT: PRINT 

GOTO 580 

REM amount times 10 

IF MID$(TA$ ,LEN(TA$)-1,1)="." THEN 1480 
IF LEN(TA$)=2 OR LEN(TA$)=3 THEN 1470 
RETURN 

K=K*100:GOTO 1460 

K=K*10 

GOTO 1460 

REM another player 

PRINT: PRINT : RESTORE 
D1=0:R$="NEXT":GOTO 460 

REM high point 

IF P=l THEN TP=TP(1):GOTO 1720 
MM=0:VV=1:N=N-1 

IF TP(VV)>=TP(VV+1) THEN 1590 
TP=TP(VV): TP(VV)=TP(VV+1) 

TP(VV4+1)=TP :N$=N$(VV) 

NSCVV)=N$(VV41) sNSCVV+1)=N$ :MM=1 

IF VV+l>=N THEN 1600 ‘final 
WV=VV+1:GOTO 1550 

REM mm=1--not in order 

IF MM=1 THEN 1540 

REM points compiled(final) 

REM print results 

PRINT "ALL HAVE PLAYED..." 

PRINT "STRIKE A KEY FOR RESULTS ON SCORE" 
GOSUB 3000 

CLS: I=1 

REM single player 

IF P=l THEN 1850 

PRINT "THE TOP WINNER: "3;N$(I) 

PRINT "WITH A FINAL POINT SCORE OF: "; 
PRINT USING G$;TP(T) 

PRINT "OTHER PLAYERS AND SCORES:" 

FOR X=I+1 TO P 

PRINT N$(X);" HAD: ";USING G$;TP(X) 
NEXT 
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1840 GOTO 1880 

1850 PRINT Q$;" YOUR TOTAL (FINAL) POINTS" 
1860 PRINT "FOR GENERAL STORE: "; 
1870 PRINT USING G$;TP 

1880 PRINT 

1890 PRINT "END OF PROGRAM RUN." 
1900 END 

2500 REM inflation/deflation 

2510 FOR I=1 TO 30 

2520 DE=INT(RND*10+1) :DF=CSNG(DE/10) 
2530 DG=INT(RND*2) 

2540 IF DG=2 THEN 2590 

2550 REM inflation 

2560 PR(I)=PR(1I)+DF 

2570 NEXT 

2580 GOTO 570 

2590 REM deflation 

2600 PR(I)=PR(1I)-DF 

2610 IF PR(I)<=0 THEN 2560 

2620 GOTO 2570 

2800 REM random player 

2810 IF N>P THEN EE=1:RETURN 

2820 Q=INT(RND*P+1) 

2830 IF N(Q)=0 THEN 2820 

2840 Y=Q:N(Q)=0 

2850 N=N+1:RETURN 

2900 REM extra message 

2910 PRINT 

2920 PRINT "ADD ALL ITEMS TOGETHER" 
2930 PRINT "BEFORE INPUTTING AMOUNT." 
2940 IF Dl>=10 THEN 2970 

2950 FOR TL=1 TO 2800:NEXT 

2960 CLS:RETURN 

2970 PRINT "START WITH PREVIOUS TOTAL." 
2980 GOTO 2950 

3000 REM INKEY$ 

3010 X$=INKEY$ 

3020 IF X$=""THEN 3010 

3030 RETURN 

4000 REM data/price--item combined 
4010 DATA MILK, BREAD, MEAT 

4020 DATA MEAT, MEAT, FISH 

4030 DATA CANDY, CANDY, CANDY 

4040 DATA VEGETABLES , VEGETABLES 
4050 DATA POULTRY, POULTRY 

4060 DATA LETTUCE, ONIONS 

4070 DATA SPINACH CIGARETTES 

4080 DATA CIGARS , BACON 
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4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM prices of item 


DATA 
DATA 
DATA 
DATA 


TABLETS (PAPER) , PENS 
BATTERIES , BATTERIES 
FURNITURE POLISH 
CARPET CLEANER 

HAND SOAP ,HAND SOAP 
CRACKERS, MEATS 
SODAS (CASE) 


2.30,0.89,1.9 
0.35,2.05,0. 
1.9 


9,0. 59,1. 
4.66,1.23,2. 
»41,0.99,0, 


s 
8,3.35,5.50,3.65 
54,0.39,0.45,3.44 
01,0.79,7.05,5.74 
44,2,.66,0.98,1.97 
99,1.32,8.99,4.32 
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Rain of Terror for the IBM PC 


10 REM program title: rain of terror 

20 CLEAR 200 

22 V$=RIGHT$(TIME$,2): ‘use PC clock to seed 

random number generator 

24 V=VAL(V$) 

26 RANDOMIZE V 

30 PRINT: WIDTH 40:KEY OFF:COLOR 14,3,7 :CLS 

35 DEF SEG=&HB800 

40 PRINT TAB(10) "*** RAIN OF TERROR ***'"':GOSUB 810 

50 PRINT: X$=STRING$(40, 32) 

60 INPUT "INSTRUCTIONS (Y/N)"3A$ 

70 IF A$="N" OR A$="NO" THEN 190 

80 PRINT "YOU WILL BE BOMBARDED FROM THE" 

90 PRINT "SKY BY FALLING BOMBS. ALL YOU" 
100 PRINT "NEED TO DO TO STAY ALIVE IS To" 
110 PRINT "USE THE <LEFT> AND <RIGHT ARROW>" 
120 PRINT "KEYS TO KEEP OUT OF THE BOMBS' POINTS" 
130 PRINT "OF CONTACT. IT SOUNDS VERY SIMPLE" 
140 PRINT "BUT YOU MUST BE FAST!" 

160 PRINT 

170 PRINT "STRIKE A KEY TO BEGIN" 

180 AA$=INKEY$:IF AA$=""THEN 180 

190 CLS 

200 REM border/messages 

210 LOCATE 1,1:PRINT STRING$(40, 219) 

220 I$=CHR$(220):GOSUB 510 

230 R=O:REM points 

240 P=160: PP=P+84 :U=P+1440: UV=sU : UW=U+78:RR=O0 

250 POKE P,43:POKE U,32:P=P+4 

260 U=U+4:POKE(U-4) ,32:POKE U,220 

270 IF P>=PP THEN POKE U,32:GOTO 240 

280 SOUND 440, 1:PX=INT(RND*79+160) 

285 LOCATE 23,1:PRINT P,PX 

300 IF ABS(P-~PX)<=8 THEN 320 

310 GOTO 250 

320 REM a drop 

330 PL=P 

335 IF PEEK(P)=220 THEN 550 

340 POKE P,42:P=P+80:FOR I=1 TO 20:NEXT 

350 POKECP-80) , 32 

360 IF P>PL+1440 THEN 410 

370 FOR H=1 TO 10:AA$=INKEY$:IF LEN(CAA$)=2 THEN 
A$=MID$(AA$,2,1):K=ASC(A$) :GOTO 

375 ELSE NEXT 

375 IF K=75 THEN K=0:GOTO 420 
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380 IF K=77 THEN K=0:GOTO 470 

390 R=R+25:RR=RR+25: LOCATE 22,18:PRINT RR:LOCATE 
23,16:PRINT R; 

400 IF P=U THEN 550 ELSE GOTO 340 

410 LOCATE 21,1:PRINT X$:P=PL:RR=0:GOTO 250 

420 POKE U,32:POKE UX, 32 

430 UsU-4 

440 IF U<=UV THEN 480 

450 POKE U,220 

460 UX=U:U=PL+1440:GOTO 340 

470 POKE U,32:POKE UX, 32 

480 U=U+4 

490 IF U>=UW THEN U=UW 

500 GOTO 450 

510 REM messages 

520 LOCATE 22,1:PRINT "POINTS BEFORE HIT "; 

530 LOCATE 23,1:PRINT "TOTAL POINTS "; 

540 RETURN 

550 REM bombed 

560 R=R-RR:LOCATE 23,16:PRINT R:LOCATE 21,1:PRINT X$ 

570 IF U<=1604 THEN U=U+6 

580 IF U>=1676 THEN U=U-8 

590 UlsU-80: U2=U1-2:U3=U14+2:04=1 

600 POKE U,42 

605 SOUND 1000,3 

610 POKE U1,42:POKE U2,42 

615 SOUND 1040,3 

620 POKE U3,42 

625 SOUND 1080,3 

630 FOR T=1 TO 200:NEXT:U4=U4+2 

640 POKE U,32:FOR V=0 TO 18 STEP 2:POKE(U24V) , 32 
: NEXT 

650 IF ABS(U-U1)>=328 THEN 670 

660 Ul=U1-80:U2=U1-U4:U3=U1+U4:GOTO 600 

670 REM gone 

680 FOR T=1 TO 1000:NEXT 

690 CLS 

700 PRINT "YOU HAVE BEEN DESTROYED BY ONE" 

710 PRINT "OF THE FALLING BOMBS. YOUR" 

720 PRINT "TOTAL POINTS ACCRUED BEFORE" 

730 PRINT "BEING DESTROYED WERE:"5R 

740 PRINT: FOR T=1 TO 1000:NEXT 

750 A$="END OF RAIN OF TERROR." 

760 FOR I=1 TO LEN(A$) 

770 PRINT MID$(A$,1,1);:SOUND 220,1:SOUND 32767,1 

790 NEXT 

800 END 
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810 PLAY "MB 02 L12 FCF L4 A- F L12 A- F A- L4 
03 C 02 A~ L12 03 C 02 A- O3 CL 4 E-O2 E-~ L12 
A~ E~ A+ O3L2 C" 

820 RETURN 
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Appendix B 


Program Listings for the Apple II 


The following listings have been created especially for use on the 
Apple II, Apple [Ze, and Apple II plus. 
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General Store for the Apple H 


1@ REM PROGRAM TITLE:GENERAL STORE 
2@ HOME : HTAR 12 

3@ PRINT "GENERAL STORE":R& = "NEXT" 
40 DIM NS$(15),16(31),1¢31) 

5Q DIM L(31),PR(31),TP(15): REM 


INSTRUCTIONS 
64 PRINT "YOUR INSTRUCTIONS ARE SIMPLE 
AND" 


7@ PRINT "STRAIGHT-FORWARD: I WILL GIVE" 
8G PRINT "YOU A LIST GF DIFFERENT ITEMS" 
9@ PRINT "AND THEIR PRICES. YOU IN TURN" 
1a@ PRINT “WILL ENTER THE TOTAL PRICE OF 
ALL THE" 
11@ PRINT “ITEMS. THAT 15, IF I SAY $2. 5a, " 
12@@ PRINT "MILK, AND THEN SAY #@. 8@ BREAD" 
13@ PRINT "YOU MUST THEN ENTER THE TOTAL” 


14@ PRINT "OF $2.50 + $2.88 ($5. 3%). ALL” 
i5@ PRINT "GF YOUR ENTRIES SHOULD BE 
ENTERED" 


16@ PRINT "WITHOUT DOLLAR SIGNS--JUST PUT” 
i7@ PRINT "IN THE DECIMAL IF THE NUMBER 


18@ PRINT "CENT AMGUNT. ": PRINT = PRINT 
"DRESS RETURN TO CONTINUE: ": 

19@ GOSUB Sada: HOME :Gé = "$" 

2i@ PRINT "AFTER TEN ITEMS WE WILL” 

#2@ PRINT "TAKE A SHORT BREAK, THEN TI WILL” 

23@ PRINT "GIVE YOU TEN MORE. WE WILL STOP" 

24@ PRINT "ONLY AFTER THIRTY ITEMS HAVE 
BEEN" 

25a PRINT “TOTALLED. YOUR POINTS WILL BE" 

26@ PRINT "DETERMINED BY THE ACCURACY OF 


YOUR" 

27@ PRINT "TOTAL. IF CORRECT, THE TOTAL 
WILL BE" 

#8@ PRINT "YOUR POINTS. IF INCORRECT, ALL” 

292 PRINT "MISSED WILL BE SUBTRACTED FROM 
YOUR TO-” 

aaa PRINT "TAL. YOU WILL HAVE A TIME 
Limi? IN” 


Si@ PRINT "WHICH TG ENTER THE TOTAL,SO LAY" 
Se@ PRINT "DOWN THE PENCIL AND THE 
CALCULATOR!" 


24@ REM BEGIN 
35@ PRINT "PRESS ANY KEY TO BEGIN:" 
364 GOSUE Suda: HOME 


INPUT “HOW MANY PLAYERS (1-18) ?"3P 

IF P ¢ 1 OR P) 1@ THEN 37a 

PRINT “ENTER "383" PLAYERS’FIRST NAMES: " 
REM NAMES 


AP = 131@: FOR I = 1 TOP 
INPUT NS(I) NCI) = Ts NEXT :N = 2:Al 
= 3:Ac = 3d 
AQ = AP + i128: IF AG > = 1959 THEN 
AD = 1094 


IF P = 1 THEN Y = i:N = 2: GOTO 474 
PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT "A RANDOM FASHION. THERE WILL" 
PRINT "HE NO SET ORDER GF PLAYERS." 
GOSUB 2ead: PRINT : REM PLAYER 
IF EE = 1 THEN 153%: REM FINAL 
Q$ = N#(Y)sTA = @s JI = a 
PRINT Q@$;" WILL NOW PLAY:" 
PRINT "PRESS THE RETURN KEY TO BEGIN"; 
INPUT X$: PRINT 
HOME : PRINT "HOW FAST IS YOUR 
ADDITION," 
PRINT O35" ?2?" 
REM READ ALL ITEMS/PRICES 
FOR I = 1 TO 3@: READ I$(I)sL (1) = I: 


NEXT 

FOR I = 1 TO 3@: READ PR(I):s NEXT : 
GOTO 25ae 
D= 1- i:DD = (D / 3):U = i:Dh = "GS": 
FG = og 


REM SELECT ITEMS RANDOMLY 
IF U > DD THEN PRINT : PRINT : GOTO 
1100 

X = INT ( RND (1) * 3@ + 1) 
IF LX) = @ THEN 6@@: REM USED 

7 = X:PR = PR(T):T& = I6(T) 
IF U = 1 THEN YU = PR 

Ta = TA + PR: REM TOTAL AMOUNT/CURRENT 
ITEM 

TAS = STR& (TA): REM TOTAL TO STRING 
IF U = 1 THEN GOSUB 2900 
IF U = 1 THEN HOME 
IF U) 1 THEN 672 
HTAB i: PRINT "PRICES":: HTAB 123 
PRINT "ITEMS" 3 
IF U) i THEN 672 
HTAR i: PRINT "PRICES";: HTAE 1: 
PRINT "ITEMS": 


i oul 
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665 HTAB 3@: PRINT "PRICES 

67@ HTAR 12 PRINT D#:PR:; 

68@ HTAR 12: PRINT Td 

69@ IF U <¢ = 1 THEN 71a 

72@ RR = is REM CONTINUE PRINT/ENTRIES 
71i@ LX) = @sU = U + T:KK = @eNE = 1 
7e@ IF RR ¢ > 1 THEN 5aa 

725 \VTAR Al: HTAR AG: PRINT FS 


73@ XS = PEEK ( - 16384) - 128: IF KK ¢ = 
S AND XS > @ THEN POKE ( - 16368),@ 3 
GOTO 1@4@ | 

735 %IF XS = 46 THEN POKE ( — 16368),@: 
GOTO Ba 

74@ IF XS ¢ = @ THEN 76a 


75@ POKE ( — 16368),@: GOTO aaa 

764 KK = KK + 1: REM TIME EXPIRED? 

77@ IF KK > = 25@ THEN WH = ""s GOTO 1@aa 

78Q@ POKE AP, 17a: GOTO 73a 

BMG REM ENTRY 

81@ POKE AP, XS + 128:TY(NE) = xS 

Bea AP = AP + i: REM LOCATION 

83a NE = NE + i: REM NUMBER ENTRY 

84@ IF NE = LEN (TAS) THEN 86@ 

83@ GOTO 73a 

B6@ GOTO 91@: REM ALL ENTRIES IN 

88@ REM DECIMAL 

B9@ POKE AP,XS + 128 

9@a TY(NE) = 14@@: GOTO Bea 

91@ REM COMPILE ENTRIES 

920 V= NE - i: IF V = 9 THEN V = ia 

93@ FOR I= 1 TOV 

94@ IF TY{I) = 1@a@@ THEN 97a 

95@ WS = WH + STR (TY(I)) 

960 TY(I) = @: NEXT : GOTO 39a 

974 We = WE + 7," 

988 GOTO 96a 

99@ W= VAL (WH :WS = STR (WwW) 

1@@@ IF WS ¢( > TAS THEN PI = BI + PRiJI = 
JIo+ t 

1@@5 IF U = 3 AND JI ¢ > @ THEN PI = PI + 
PReJI = Ji + i 

1@@8 IF PEEK (AP) = 17@ THEN POKE AP, 1648 

1@i@ POKE AP + 2,16@:WS = ""SAL = AL + tI 

i@e@w AP = AGSAG = AQ + 128: IF AQ > = 1959 
THEN AQ = 1894 

i@3a GOTO So@: REM ANOTHER ITEM 

1040 REM SLOW DOWN A LITTLE 

1235@ POKE AP, 16@ 
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1062 
11aa 
1118 
112 
1130 
1144 
115 
116% 
117a 
1188 
119 
1200 
121 
lzea 
iz3a 
1240 
LES 
iz6a 
1274 
1288 
1294 
13a 
13514 
1328 
1334 
1348 
135a 
136@ 


GOTO 73a 

REM POINTS/PLAYER ADVANCE 

IF PI ( ) @ THEN i2a@ 

FOR I = 1 TO LEN (TAS) 

IF MIDS (TAS,1,1) = "." THEN 115@ 
Ké = K&S + MIDS (TAS, I, 1) 

NEXT 
K = VAL (KS) 

GOSUER 1434 
TP(Y) = TPLY) + K 

GOTO 1320 

REM MISSED ITEMS 
TAS = STR& (PI): FOR I = i TO LEN (TAS) 


IF MID# (TAG,I1,1) = "." THEN 1240 
KS = KS + MIDS (TAS, I, 1) 
NEXT :K = VAL (K#): GOSUB 1428 


TPCY) = TPB(Y) - K 

PRINT "YOU HAVE MISSED TOTALS ON "3J1 
PRINT "ITEMS, "3G%;". THESE ITEMS CAME" 
PRINT "TO A TOTAL OF #";TAS;". YOU ARE” 
PRINT "MINUS THAT AMOUNT. YOUR SCORE” 
PRINT "IS NOW "3G; TPCY) 

GOTO i35@ 

PRINT “YOU HAVE SUCCESSFULLY ENTERED" 
PRINT "ALL TOTALS, "3G@%;". YOUR POINTS” 
PRINT "ARE NOW: "36S; TPCY) 


K = @:J1 = O@:PT = @:TAS = ""EKS =" 
U = 1:D1 = Di + 1@: IF Di = 2@ THEN R# 
= "LAST" 


AP = 131@:AG = AP + 1eG:ALl = 3:AE = 
B@:8R = @: PRINT 

IF Di >) = 3@ THEN 15a 

PRINT "TAKE A SHORT BREAK, THEN WE?LL" 
PRINT "ATTEMPT THE "3R%3" SET OF ITEMS. " 
FOR I = 1 TO S@@a: NEXT : PRINT 

GOTO Sada 

REM AMOUNT TIMES 18 

IF MIDS (TAS, LEN (TA) - 1,1) = "." 
THEN 148@ 

IF LEN (TAS) = = OR LEN (TAS) 
THEN 1470 

RETURN 
K= K * t@a: GOTO 1464 
K=K #® 1a 

GOTO 1468 

REM ANOTHER PLAYER 

PRINT : PRINT : RESTORE 


| 


It 
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1520 Di = @eRB = "NEXT": GOTO 46a 

153@ REM HIGH POINT 

1535 IF P = 1 THEN TP = TP(1): GOTO i7z2a 
1540 MM = @:VV = 1:N = N —- 1 

135@ IF TP¢VV) > = TP(VY + 1) THEN 159@ 
1564 TP = TP(VV) :TP(VV) = TP(VV + 4) 

157G@ TP(VV + 1) = TRPeN@ = N#®C(VY) 

1588 NéC(VV) = NS(VV +L) ENS (V+ 1) = Neem = 1 
15390 IF VV + 1 > = N THEN 16@@: REM FINAL 
1595 VV = VV + 1: GOTO 1550 

16@@ REM NOT IN ORDER 

161@ IF MM = 1 THEN 154@ 

165@ REM POINTS COMPILED (FINAL) 

17@@ REM PRINT RESULTS 

171@ PRINT "ALL HAVE PLAYED..." 

1720 PRINT "PRESS RETURN FOR RESULTS ON 


SCORE" 
173@ GOSUBR 3aa@ 
474@ HOME st = i 


175@ REM SINGLE PLAYER 

176@ IF P = i THEN ia5a 

177@ =PRINT "THE TOP WINNER: "3N@(T) 

178@ PRINT "WITH A FINAL POINT SCORE OF: ": 
179@ PRINT Gé3sTP(T) 

18@@ PRINT "OTHER PLAYERS AND SCORES:" 
181@ FOR X =I+i1TOP 

18Z@ PRINT N®(X)3" HAD: "sGH%sTRCX) 

183@ NEXT 

164@ GOTO 18a 

185@ PRINT Q$3" YOUR TOTAL (FINAL) POINTS" 
1864 PRINT "FOR GENERAL STORE ARE:": 

187@ PRINT GS;TP 


1886 PRINT 
189@ PRINT "END OF PROGRAM RUN" 
19@@ END 


eo@a@ REM INFLATION/DEFLATION 
#512 FOR I = 1 TO 3a 


eSea DE = INT ¢( RND (1) # 10 + 1):DF = 
CSNG(DE / 1@) 
25324 DG = INT ¢ RND (1) # 2 + 1) 


2eS4@ IF DG = & THEN 2590 
essa REM INFLATION 
BS6@ PR(I) = PR(I) + DF 


e58@ GOTO S7@ 
Es6a@ GOTO 37a 

e59@ REM DEFLATION 
f#6@@ PRCT) = PR(I) — DF 


408 


2610 IF PR(I) ¢ = @ THEN 256a 
e6ea GOTO e570 

2ea2 REM RANDOM PLAYER 

2812 IF N) P THEN EE = t: RETURN 

2820 Q = INT ( RND (1) * P + 1) 

283% IF N(Q) = @ THEN eae 

2B4a Y = G:N(Q) = @ 

#850 N = N + 1: RETURN 

29aa REM EXTRA MESSAGE 

291@ PRINT 

z#92@ PRINT "ADD ALL ITEMS TOGETHER” 
2930 PRINT “BEFORE INPUTTING AMOUNT. " 
2940 IF Dit) = 1@ THEN 2972 

e95@ FOR TL = 1 TO 2@@@: NEXT 

2960 HOME : RETURN 

2970 PRINT "START WITH PREVIOUS TOTAL.’ 
2990 GOTO £95a 

3@a@ REM INPUT 

3@1a XS = PEEK ( ~ 16384) - 126 

3020 IF XS ¢ = @ THEN 3a1a 

3030 POKE ( - 16368),@: RETURN 

40002 REM DATA/PRICE--ITEM COMEINED 
4@1@ DATA MILK, BREAD, MEAT 

4020 DATA MEAT, MEAT, FISH 

4030 DATA CANDY, CANDY, CANDY 

4040 DATA VEGETABLES, VEGETABLES 

4052 DATA POULTRY, POULTRY 

406% DATA LETTUCE, ONIONS 

4072 DATA SPINACH, CIGARETTES 

4080 DATA CIGARS, BACON 

4092 DATA TOABLETS(PAPER), PENS 

4144 DATA BATTERIES, BATTERIES 

411@ DATA FURNITURE POLISH 

412@ DATA CARPET CLEANER 

413% DATA HAND SOAP, HAND Soap 

414@ DATA CRACKERS, MEATS 

415@ DATA SODAS (CASE) 

4160 REM PRICES OF ITEMS 

4170 DATA 2.35, 1,09, 1.98,3.35,5.55, 3.65 
418@ DATA 1.35, 2.15,1.04, 1.39, 1.45, 3.44 
4190 DATO 1.99,1.09,1.11,1.29,7.15, 5.74 
4200 DATA 4.66, 1.23,2.44,2.66,.98, 1.97 
4210 DATO 2.41,1.99, 1.99, 1.32, 8. 99,4. 32 


J 
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Hold Time for the Apple Il 


1@ PRINT CHRS (4)3"BLOADSOUND" 


2@ F 


1@5 
125 
13@ 
135 


140 
145 
15a 
155 
168 
165 
17a 


fora fot 
he - o 
So 


fis fo fy 
SOA 
une of 


3 


t3 MY 
aw 


pee 
§ on ta 


3 


bs 


410 


= Baa 

HOME 

HTAB iS: PRINT "HOLD TIME" 

PRINT = INPUT “INSTRUCTIONS? "32% 
IF Z# = "N" OR 7% = "NO" THEN HOME : 
GOTO 27 
PRINT = HOME 

PRINT "OLD TIME...A MATTER OF HIGH OR” 
PRINT "LOW POINT TOTALS. THE COMPUTER’ S" 
PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 
PRINT "VIDEO. DOWN THE LEFT AND RIGHT" 
PRINT "SIDES WILL BE ASTERISKS. THESE” 
PRINT “ARE YOUR LASERS. AT THE INSTANT" 
PRINT "YOU THINK THE CRAFT 1S IN LINE" 


_ PRINT "WITH THESE, HOLD THE SPACE BAR. 


YOUR” 

PRINT "LASER BLASTS WILL START MOVING" 
PRINT "TOWARD THE CENTER. THE COMPUTER" 
PRINT "CRAFT WILL ALSO CONTINUE TO 
MOVE. " 

PRINT + INPUT "PRESS RETURN TO 
CONTINUE s "52% 

PRINT "YOU CAN "HOLD? THE COMPUTER? 5” 
PRINT "CRAFT FROM MOVING FOR A SHORT 


TIME," 
PRINT "ROUGHLY £2 SECONDS, BY HOLDING THE” 


PRINT "(P) AND (REPT) KEYS. POINTS 
WILL RANGE” 

PRINT "15@@ TO 4@@, DEPENDING ON 
WHERE ON" 

PRINT "THE SCREEN (TOP OR BOTTOM) you 
DESTROY" 

PRINT "THE CRAFT. TIME LIMIT FOR THE" 
PRINT "ENTIRE RUN WILL BE JUST ABOUT” 
PRINT "FIVE MINUTES. THIS WILL BE NOTED" 
PRINT "AT THE LOWER RIGHT OF YOUR 
SCREEN, " 

PRINT "COUNT STARTS AT 3a." 

PRINT 

PRINT : INPUT "PRESS RETURN TO BEGIN " 
:X$: HOME 


goa "x 

$ = "#"sMR = 8:MC = 16:Mi = ismMe = 1 

= @:Pi = i6: FOR X = i TG 4%: VTAR i: 
HTABR X: PRINT Q#3: VTAEB 16: HTAB Xs 


Gl bl 
fa - 
S wi 


G) 
ro 
3 


Gi GIG) G 
bi GI oy fo 
Chi & Of 


PRINT Q%3: NEXT 

VTAR 2: HTAB 36: PRINT "2@"3: FOR XR = 
# TO 152xC = 1 

VTAB XR: HTAB XC: PRINT Q%3: HTAB XC + 
39: PRINT Q$; 

POKE 769,93: POKE 77@,5: POKE 768, 1: 
CALL 768 

GOTO Sae 

IF Mi ¢ > 21 AND MB¢ D)ITHEN GOSUB 355 
NEXT 


FOR X = 1 TO 4@: VTAB is HTAB Xs PRINT 
CHR (32)3: VTAB 16: HTAB Xs PRINT CHRS 
(3) 3 
NEXT 


FOR XR = 2 TO 15:2XC = 1 
VTAB XR: HTAR XCs PRINT CHR (32) 5: 
HTAR 4@: PRINT CHRS (32) 5 


GOSUB 355: NEXT : GOSUB 355: GOTO 31@ 

VTABR 16: HTAB 35: PRINT ABS ( INT (TT 
/ 6@) - 3@); 

VTABR Mi: HTAR Me: PRINT ” us 

IF MR (¢ = 2 OR MR > = 15 THEN MR = 7 
VTAB MR: HTAB MC: PRINT C#3:TT = TT + 1 
IF TT > = 18@@ THEN 830 


Mi = MRiM@ = MC:W = PEEK (- 16384) -128 
IF W= B@ AND G ¢ = 2@ THENG=G+t+. 
4: GOSUER 77@: RETURN 

XX = INT ( RND (1) * 4 + 1): REM 
CRAFT MOVE 
ON XX GOTO 38a, 39a, 40a, 410 
REM LEFT MOVE 

MC = MC —- INT (RND (1) * 5 + 1):G0TO 42a 
REM RIGHT MOVE 

MC = MC + INT ( RND (1) *5+41):G0TO 42a 
REM UP MOVE 

MR = MR — t: GOTO 42a 
REM DOWN MOVE 

MR = MR + 4: IF PEEK (1153) = 32 THEN 
GOSUE 7@@: REM LOCATION OF MESSAGE 
FROM LINES 745-762 
IF PEEK (1186) = 32 THEN GOSUB 7aa: 
REM LOCATION OF MESSAGE FROM LINE 315 
IF PEEK (1835) = 32 THEN GOSUB 7aa: 
REM LOCATION OF MESSAGE FROM LINE 7@5 
IF PEEK (1859) = 32 THEN GOSUB 722: 
REM LOCATION OF MESSAGE FROM LINE 715 
IF MC ¢ = 3 THEN MC = 38:MR = MR - 1 


411 


CS SNA To 


ALi PS + 
§ 8 oi fa fo fa 


Cheon CAC OCA 
OJ G1 GJ fo fy 
Orn oe 


IF MR ¢ = & AND MC (¢ = 3 THEN 418 
IF MC > = 35 THEN MC = S:hMR = MR + 1 
IF MR > = 15 AND MC > = SS THEN 4 
RETURN =: REM SOUND ROUTINE LOCATION 
REM FIRE 
IF XR ¢ = 14 THEN W = PEEK ( -— 16384) 
~ 1é 
PI = PI ~ 1: IF W ( = @ THEN 33a 
IF W= Se THEN POKE ( - 16368), @: 
GOTO Seo 
GOTO 33a 
REM LASER ADVANCE 
IF XR > = 13 THEN 33a 


IF XR ¢ = & THEN 33@ 


HR = XR:HC = XC: IF HR > = © AND HR ¢ 


= 8 THEN Hi = HR * 128 + 896 
IF HR > = 9 AND HR ¢ = 16 THEN Hi = 
(HR - 8) # 128 + 936 


He = Hi + 39:UN = LIN + 12 REM SOUND 


ROUTINE 

IF RP = 1 THEN VTAH &: HTAB 2&@: PRINT 
ABS (R - UND; 

POKE H1, 16%: POKE He, 162 

IF PEEK (Hi + 1) ¢ > 16@ OR PEEK 
(He -~ 1) ¢ > 16@ THEN 57a 


Hi =H1 + 12He = He -1: REM SOUND ROUTINE 


Zz 


POKE 769, 112 

POKE 778, 6 

POKE 768, 1 

CALL 768 

POKE Hi,17@: POKE H&,17@ 

IF ABS (H®2 - H1) ( = & THEN 92a 
GOSUR 355: GOTO 54a 

REM DIRECT HIT 
POKE Hi, 172 

IF PEEK (ue = 
POKE He, 16@:He 
POKE He, 17@ 

FOR GQ = 1 TO @:NEXT!REM SOUND ROUTINE 
GOTO S82: REM TACK ONTO LINE 595 

REM DELETE 


, cd Ss <ié6F 
4 é a oe 


i) 
= He - 8 


= 1: POKE Hi, 16@: POKE He, 16a 

IF MR > = 2 AND MR ¢ = @ THEN N = MR 
* 128+ 896 +MC-—1: REM SOUND ROUTINE 
IF MR > = 9 AND MR (€ = 16 THEN N = 
(MR - @) # 128 + 926 + MO - 1 


POKE N,16@: POKE N + 1,16@ 
POKE N + 2, 16a 


625 
634 
635 
644 
645 
65a 
655 
664 
665 
678 
675 
68a 
682 
685 
687 
69a 
695 
Fe 
7S 
7ia 
715 
716 
TER 
7G 
73a 
735 
74 
74S 
75a 
73S 
768 
762 
765 
77a 
77S 
782 
785 


73a 


735 
Baa 
Bas 
81a 
Bee 
83a 


835 


J = INT ¢ RND (1) * S&S + 1) 

IF N+ J - 126 > = 1198 THEN 644 

GOTO 664 

POKE N + J ~ 128,170: POKE N + 126,178 
FOR I= 1 TO J * 1@: NEXT 

POKE N + J - 124,16@: POKE N + 128, 16a 
GOTO 675 

POKE N + J + 128,17@: POKE N + 128,174 
FOR I= 1 TO J * 1: NEXT 

POKE N + J + 128,160: POKE N + 126,164 
IF Z <( = 7 THEN 685 

IF RP = @ THEN GOTO 69% 
PI = PI + i: GOTO 695 
Z=Z+ i: GOSUB lama 


= PI + i:X$ = X$ + "4" 
pp = PP + PI * 1@@: GOSUE 7a@: GOTO 9a 


AS = "TOTAL POINTS: ":TS= "TIME LAPSE: ” 
FR = 15:FC = 3 

FOR I = 1 TO LEN (As) 

VIAR FR: HTAR FC +28:PRINT MID# (TS, {,1)3 
VTAR FR: HTAER FC: PRINT MIDS (A$, 1,1)3 
FO = FC + ts NEXT 


PRINT PPs: IF RP = 1 THEN 735 
IF X$ = "" THEN RETURN 
REM RESERVE POWER 
R$ = "RESERVE POWER: ” 
FR = 2:FC = 2 
FOR I = 1 TG LEN (RS) 
VTAE FR: HTAR FC: PRINT MIDS (RH, 1, 1)3 
FO = FC + 1: NEXT 
IF RP = 1 THEN X# =STRS( ABS (R - UND) 
PRINT X$; 
TI$ = "HOLD TIME ": REM HOLD TIME 
IF PEEK (1864) ¢ ) 3E THEN 792 
FR = @:FC = 25: FOR I = 1 TO LEN (Ti#) 
VTAR FR: HTAR FC: PRINT MIDS (T1$,1,1) 
= FC + 1: NEXT 
VTAR 2: HTAH 36: PRINT INT ( ABS (G - 


POKE ( — 16368),@: RETURN 

REM TIME REMAINING 

IF RP = 1 THEN DK = i: GOTO 91M 
IF TT >) = 18@@ THEN 83a 

GOTO 3aa 

FOR TI = 1 TO 12@@: NEXT 

HOME :R = LEN (X#) 
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84@ IF R = @ THEN 968 

845 PRINT "VERY WELL DONE..." 

B52 PRINT "YOU HAVE "sR:" UNITS OF” 

855 PRINT “RESERVE POWER...." 

B6@ PRINT "PRESS RETURN TO USE"; 

865 INPUT X#:TT = @:RP = 1:UN = wi 

B7@ HOME 

8735 GOTO saa 

9@@ POKE H1,16@: POKE He, 16a: REM DELEGE 
RESERVE UNITS 

945 IF RP = @ THEN 33a 

91@ IF UN >) = R THEN 925 

915 IF DK = @ THEN 33a 

92@ DK = @: GOTO 814 

925 REM FINISH 

93@ FOR TI = 1 TO 1le@a: NEXT 


935 HOME 

94@ PRINT "RESERVE POWER EXHMUSTED...." 
345 PRINT "TOTAL POINTS ACCUMULATED: ":pp 
95@ PRINT 


955 GOTO 98% 

964 PRINT “YOU HAVE DESTROYED NOTHING" 
965 PRINT "YOU HAVE NG RESERVE POWER, 
974 PRINT 

975 GOTO 945 

98a PRINT 

985 PRINT "END OF RUN. " 

393@ END 

ig@ga Fo = F + 7 

1@@5 POKE 769,F 

1@1@ POKE 774, ° 
1@2@ POKE 766,<2 
1@3@ CALL 771 
144@ RETURN 


it mNQ 


ted 
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Be Prepared for the Apple Il 


i REM PROGRAM TITLE BE PREPARED 


1@ PRINT CHR (4) :"BLOADSOUND” 

a@ HOME : HTAER 1@: PRINT ")) BE PREPARED ¢<" 

30 PRINT "BE SURE YOU HAVE READ THE 
INSTRUCTIONS 

40 PRINT "BEFORE YOU START.DO YOU NEED TO " 

5@ INPUT "SEE THEM NOW (Y/N)? ";AAS 

62 IF AAS = "N" THEN 95 

7@ HOME : GOSUB Zana 

90K = 127 

95 GR 

1a@ FOR I = 1282 TO 1287 

11@ FOR J = I TO 1 + 3@ STEP 14 

i2@ POKE J,K 

13@ NEXT : NEXT 

z2@@ FOR I = 1576 TO 1578 

21@ POKE I,K: POKE I + 37,K 

22a NEXT 

3a@ FOR I = 1583 TO 1588 

31@ FOR J = 1 TO I + #@ STEP ia 

32@ POKE J,K 

33Q@ NEXT + NEXT 

400 FOR I = 141@ TO 1922 STEP 128 

41a FOR J = 1 TOI + 35 STEP 5 

420 POKE J,K 

43 NEXT : NEXT 

5@@ FOR I = 1066 TO i45@ STEP 128 

51@ FOR J= 1 TO 1 + 35 STEP 5 

52@ POKE J,K 

S3@ NEXT : NEXT 

1@@2@ POKE - 16368,@: IF C >) 9 THEN C = 1 


1aaS 6IF € > 9 THEN C = 1 

1a@@6 IF VD = @ AND VW = @ THEN F = la@@aa 
1aa7 oF VD + VW = 2@ THEN 94012 

1@1a@D = INT ¢ RND (1) * C + 1) 

1@iS IF F ¢ = 1 THEN F = @: GOTO 33a@ 
1@17 GOSUE 35aa@ 

1034 S$ = 183e 


1444 IF S = 1871 THEN DI = - i: GOTO 1898 
1a5@ IF ( PEEK ¢( - 16384) - 176) = D THEN 
7a 


1@6@ T= 5:5 = + i 


POKE T,@: POKE S,153:F = F -. 1a 


1a8@ GOTO 1M4a 


T=G:S5=S8-1 
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IF ¢ PEEK ( - 16384) - 176) = D THEN 
POKE 7T,@: GOTO 7a@@e 
IF S = 1832 THEN DI = 1: IF C = 39 THEN 


Laan 

IF DI = - 14 THEN 11a@ 

IF C ¢ >) 9 AND S = 183¢ THEN C = C + 
1: POKE - 16368,@: GOTO 1aa5 

POKE T,@: POKE S,153:F = F - 14 

IF DI = -— 1 THEN 1a9a 

PRINT " A LONG TIME FROM NOW, IN A 
GALAXY” 


PRINT "LIGHT--YEARS AWAY..." 

PRINT =: PRINT "YOU HAVE BEEN ASSIGNED 
TO DUTY ABDARD" 

PRINT "THE SPACE CARRIER ° XENGPHON’®. " 
PRINT "YOUR ASSIGNMENT: TQ SAFELY DOCK 
TWENTY” 

PRINT "BATTLE CRUISERS RETURNING FROM 
DEER! 

PRINT "SPACE. ": PRINT 

INPUT "PRESS RETURN TO CONTINUE" :AAS 
HOME : PRINT "THE VESSELS HAVE 
LIMITED FUEL REMAINING" 


PRINT "SQ YOU MUST DOCK THEM AS SOON AS" 
PRINT "POSSIBLE. YOU WILL SEE THE PORTS" 


PRINT "ON THE SCREEN AS BLUE AND 
WHITE TUBES. " 

PRINT "WHEN YOU THINK THE VESSEL IS 
AT THE" 

PRINT “OPENING, PRESS A NUMBER KEY 

BRE TWEEN” 

PRINT "ONE AND TWO FOR THE FIRST 
VESSEL. " 

INPUT "PRESS RETURN TO CONTINUE "3; AAG 
HOME : PRINT "FOR THE SECOND VESSEL 
YOU MUST CHOOSE” 

PRINT "BETWEEN KEYS ONE THROUGH THREE, 
THE" 
PRINT "POSSIBLE CHOICES INCREASING 
FOR EACH" 

PRINT "VESSEL UP TO NINE, THEN 
STARTING OVER. ” 

PRINT"IF YOU FIRE AT THE WRONG TIME OR" 
PRINT "ALLOW THE VESSEL TO RUN QUT 

OF FUEL," 

PRINT "YOU WILL HAVE DESTROYED A 


POANE PPA ros 
VLU 


PRINT "VESSEL. AND MANY HUMAN LIVES. 
TAKE THIS” 


#24@ PRINT "ASSIGNMENT SERIOUSLY. THAT 
WILL BE ALL" 
2E5@ PRINT : INPUT "PRESS RETURN TO BEGIN" 


,AAS 
38@a@ RETURN 
7aa@ POKE ~- 16368,@:X = & 
7@a5 AA = @ 


7aia@ AA = AA + 1: GOSUR BaeZ 

7@2@ IF AA ¢ 11 THEN 7@4@ 

7a3@ GOTO 9200 

7@4@ GOTO 7a1a 

Baaa IF X >) 1@66 AND X ¢ 11@1 THEN 9@ad 

B@@5 IF PEEK (X - 128) ¢ > @ THEN 91a@a@ 

BA1a@ Y = X2X = X ~— 128 

B@2@ POKE Y,@: POKE X,153 

8@3a@ RETURN 

9@@@ FOR II = 1@66 TO 1896 STEP 1@ 

9@1@ IF X >) II AND X ¢ TI + S THEN Y = X:Xx 
=X + 856 

9@2¢a@ NEXT II: GOTO Aaea 

91a@ GOSUE 9600 

911@ HOME : VTAR 23: FLASH : HTAB 12: 
PRINT "VESSEL DESTROYED" :VW = VW + 1: 
FOR TT = 1 TO 2@@@: NEXT :F = 
NORMAL : POKE X,@ 

9115 GOSUB 95aa 

912@ C = C + i: POKE —- 16368,@: GOTO i@as 

9240 GOSUB 38@0 

9210 HOME : VTAR €3: INVERSE +: HTAR 13: 
PRINT "VESSEL ‘DOCKED": FOR TT = 1 
TO 2@@@a: NEXT : NORMAL =: POKE X,@ 

9220 VD = VD + 1:F = 1adaa 

9225 GOSUB 95aa 

923@ C = C + is POKE — 16368,@: GOTO 1aas 

9340 GOSUB 3722 

931@ NOTRACE : VTABR 23: INVERSE +: HTAB ic: 
PRINT "FUEL EXHAUSTED’: FOR TT = 1 T 
O eat: NEXT : NORMAL sVW = VW + i:F 
= Laden 

9311 POKE X,@ 

9315 GOSUB 35aa 

9328 C = C + 1: POKE —- 16368,@: GOTO 14a5 

94a@ GOSUR 35a0 

941€a VTAR &1: PRINT TARL 12)3;"G AME 
OVER " 

9415 FOR TT = 1 TO G6@@@: NEXT 

9420 TEXT : HOME : END 
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95a@ HOME : VTAR ee: PRINT TABC 13) 3"FUEL 
REMAINING: "3F 

951@ VTAB 24: PRINT "VESSELS DOCKED: "sVD;s" 
VESSELS DESTROYED: ":VW 

952@ RETURN 

969@ FOR II = 1 TO 4 

961@ POKE 769,159: POKE 77@,7: POKE 768,3 

962@ CALL 768 

9632 POKE 769,173: POKE 77@,6: POKE 768,3 

9640 CALL 768 

3650 NEXT 

966@ RETURN 

37@@ POKE 769,8: POKE 77, 14 

97@5 POKE 768,3 

9714 CALL 765 

9720 POKE 769,13: POKE 77a, 3a 

3725 POKE 766,353 

973@ CALL 768 

976@ POKE 769,26: PUKE 774,49: POKE 766,35 

977@ (CALL 768 

978@ RETURN 

98@@ POKE 769,6: POKE 774a,8 

981@ POKE 768,16 

9820 CALL 771 

983@ PBOKE 769,135: POKE 77a,5 

984@ POKE 768,16 

9852 CALL 768 

986@ POKE 769,93: POKE 77a,5 

9874 POKE 768,17 

988a@ CALL 768 

98924 RETURN 

2214@ PRINT "ONE AND TWO FOR THE FIRST 
VESSEL.": PRINT 
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Rain of Terror for the Apple Il 


1a 
2a 
3 
4a 
Hal 
6 
7m 
Bia 
9a 
1ae@ 
L1i@ 


lea 
isa 
14a 
isa 


REM PROGRAM TITLE:RAIN OF TERROR 
CLEAR 

HOME s PRINT 

HTAB 1@: PRINT "“x** RAIN OF TERROR x*x"”" 
PRINT 

INPUT "INSTRUCTIONS (Y/N) "SAS 

IF AS = "N" THEN 192 

PRINT "YOU WILL BE ROMBARDED FROM THE " 
PRINT "SKY EY FALLING BOMBS. ALL YOU" 
PRINT "NEED TO DO TO STAY ALIVE IS TO" 
PRINT "USE THE LEFT AND RIGHT ARROW 
KEYS" 

PRINT "TO GET OUT OF THE WAY OF THE” 
PRINT "FALLING BOMBS. SOUNDS VERY” 
PRINT "SIPPLE, BUT YOU MUST BE FAST!" 
PRINT 


PRINT 

PRINT "PRESS RETURN TO BEGIN" 
INPUT AAS 

HOME 


REM BORDER / MESSAGES 

GR : COLGR= 7: HLIN @,39 AT @ 

GOSUB Sia 
R= @: REM POINTS 
PR = 1:PC = @:PP = PO + 39:UR = PR + 
L3S:UC = PCsUV = UC:UW = UC + 34:RR = @ 
RR = @ 

COLOR= 3: PLOT PC, PRs COLOR= @: PLOT 
UC, UR:PC = PO + 2 

UC = UC + @: PLOT PC - 2, PRs COLOR= li: 


PLOT UC,UR 

IF PC > = PP THEN COLOGR= @: PLOT UC, 
UR: GOTO 24¢@ 

BX = INT ¢( RND (1) * 39) 


IF ABS (PC - PX) (¢ = & THEN 32a 
GOTO 25a 
REM A DROP 
PL = PR 
COLOR= 3: PLOT PC, PR:PR = PR + 1 
COLGR= @: PLOT BC,PR - 1 
IF PR > PL + 13 THEN 414 
K = PEEK ( ~ 16364) ~ 126: IF K = & 
THEN 420 
IF K = 21 THEN 47@ 
R= R + 25:RR = RR + 25: VTAR Fis HTAB 
i8: PRINT RR3: VTAR fe: HTAB 14: PRINT R; 


419 


4ae 


415 
41@ 
4ou 
43a 
44a 
4S 
455 
468 
47% 
482 
49@ 
side 
sia 
cas 
a3! 
S4u 
Sold 
568 
278 
SOe 
we 


Gla 


61a 
620 
6348 
644 
Go 
668 


67 
baa 
69a 
7a 
fia 
7a 
73 
74 
7Oe 
76a 
77 
738 
Baa 


420 


TF PR = UR AND PC = UC THEN SS@ELSE 
GOTO 34a 

GOTO 342 
PR = PL:RR = @: GOTO E5@ 

COLOR= @: PLOT UC,UR: PLOT UX,UR 
uo = UC - 
IF UC ¢ UV THEN 484 

COLGR= li: PLOT UC,UR 

POKE ( — 16366),@:UX = UC 
UR = PL + 13:UC = PCs GOTO 34 
COLGR= @: PLOT UC,UR: PLOT UX, UR 


i re 


UC = UC + & 

IF UC > = UW THEN UC = UW 

GOTO 45¢ 

REM MESSAGES 

VTAB 21: PRINT "POINTS BEFGRE HIT"; 
VTAR 22: HTAR 1: PRINT "TOTAL POINTS "3 
RETURN 


REM BOMBED 

R= R - RR: HTAR 22: VIAR 16: PRINT R; 
IF UC ( = # THEN UC = UC + 3 

IF UC > = 37 THEN UC 
Ri = UR — d:Ci = UCHRe 
i:RG = RirCS = Cl + 1:04 = i 

COLOR= INT ¢ RND (1) * @ + 4)3 PLOT 
uC, UR 

PLOT Ci,Ri: PLOT Cé, Re 

PLOT C3, R3 

FOR T = 1 TO @W@: NEXT :U4 = U4 + 1 
COLOR= @: PLOT UC,UR: HLIN Cz,C3 AT Re 


ott 
2 
pare 
Ta 

il 
a 
~ 

j 


IF ABS (UR - Ri) > = 4 THEN 672 
Ri= Ri ~ i:Ce = Ci - U4:C3 = Ci + U4: 
GOTO Ee 

REM GONE 

FOR T= i TO Shad: NEXT 


TEXT =: HOME 

PRINT "YOU HAVE BEEN DESTROYED BY QHE” 
PRINT "OF THE FALLING BOMBS. YOUR" 
PRINT "TOTAL POINTS ACCRUED BEFORE" 
PRINT “BEING DESTROYED WERE: "3R 
PRINT =: FOR T = 2 TO lida: NEXT 
AS = "RAIN GF TERROR” 

FOR IT = i TO LEN (A®) 

VTO@B 15: PRINT MIDS (AS, I,1)5 

NEXT 

END 


3 


Knights for the Apple Il 


1@ REM PROGRAM TITLE:KNIGHTS 

15 PRINT CHRS (4) ;"BLOADSOUND" 

2@ CLEAR 

3@ HOME : HTAB 15 

4@ PRINT ")}) KNIGHTS (¢¢(" 

S@ PRINT 

6@ PRINT “INSTRUCTIGNS NEEDED?" 

7a INPUT TS 

8@ IF Té = "N” OR TS = "NO" THEN 372 

9@ PRINT "THERE ARE 1@ KNIGHTS IN A CASTLE." 

i@@ PRINT “THESE ARE KNIGHTS WHO HAVE DONE 
WRONG" 

11@ PRINT “AND WERE IN A DUNGEON WAITING” 

12@ PRINT "TO HAVE THEIR HEADS REMOVED. " 

13@ PRINT "THEY HAVE ESCAPED FROM THE 
DUNGEON” 

14@ PRINT "AND CAPTURED THE CASTLE. ” 

15@ PRINT "WITH THEM THEY HAVE EIGHT” 

16@ PRINT “HOSTAGES WHOM THEY HAVE 


CAPTURED" 
17@ PRINT "THE KING WILL NOT MEET THEIR 
TERMS" 


18@ PRINT "SO THEY HAVE VOWED TO FIGHT" 

19@ PRINT "TO THE DEATH..." 

za@ PRINT : INPUT "PRESS RETURN TO 
CONTINUE: "sAAS 

22g PRINT "YOU ARE THE SHARPSHOOTER 
SELECTED" 


aaa PRINT “BY THE KING TO TERMINATE EACH" 

24Q PRINT "OF THESE KNIGHTS. YOU ARE” 

25@ PRINT "EQUIPPED WITH A HIGH-POWER 
CROSS-" 

26@ PRINT "BOW. ALONG THE CASTLE WALLS 
ARE" 

o7@ PRINT "FIVE WINDOWS. EACH TIME A 
FIGURE" 


27B@Q PRINT "APPEARS AT A WINDOW YOU'LL HAVE” 
29@ PRINT "THE OPTION OF FIRING (RY 
STRIKING” 
3a@ PRINT “THE SPACE BAR) GR NOT. THE" 
31@ PRINT "FIGURE APPEARING IN THE WINDOW" 
32@ PRINT "COULD BE ONE OF THE HOSTAGES. ” 
33a PRINT “IF IT IS A KNIGHT AND YOU 
DON’ T FIRE" 
34@ PRINT "YOU COULD BE HIT..." 
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35a PRINT 

S60 INPUT "PRESS RETURN TO BEGIN, "3yT# 

37@ HOME sK = 1@:sHD = 6:CR = 14: GR 

38@ REM MAKE A CASTLE 

39a COLOR= 6: FOR C = @ TO 39: HLIN 4,39 
AY Cs NEXT 

40@ COLOR= i@: FOR C = i@ TO #6: HLIN &, 38 


41@ FOR C = & TO 38 STEP & 
4e@ PLOT €C,9: NEXT 

sla X = i3sy¥ = 4: COLOR= 6 
seat FOR C = X TO (X + 1) 
S3a@ FOR Y = 4 TO Se STEP 7 
S4@ HLIN Y¥, (¥ + 4) AT C 
sol NEXT Y 

56@ NEXT C ; 

S9a@ REM GET A WINDOW 


64@@ W= INT (8 * RND (1) + 1) 

6ig Wl= 7 ® We oS 

62u POKE (¢ - 16368),@: REM PAUSE BEFORE 
PLACING 

63a PP = INT (7a * RND (1) + 25h) 


64@ FOR PU = 1 TO 7au 

65@ IF PU = PP THEN 67a 

664 NEXT : GOTO 63a 

678 GOSUR 163@ 

68@ REM SHARPSHGOTER TO FIRE 
69@ FOR TI = 1 TO 1aa 

7@Q WS = PEEK { —- 16384) - 128 
7id@ IF WS = Se THEN 73@ 


72a NEXT 

73@ POKE (¢ - 16568),%: REM KNIGHT OR 
HOSTAGE 

744 Hi = INT (3S * RND (1) + 1)sHe = INT 


(S * RND (1) + )sHS = INT (5 *® RN 
D ¢1) + 1) 

7S@ H= ARS (Hl - HE - HS) 

764 GOSUB i672 

762 IF H = W THEN i242 

765 IF HD ¢ = @ THEN THEN 848 

770 IF H¢ = @ORH?} = 5 AND TI ( = 
99 THEN 79% 


78@ GOTO 844% 

79a REM A HOSTAGE 

aaa TF TI > = 75 THEN 8an 

81a GOSUB 16@a: PRINT "YOU HAVE JUST 


KILLED GNE OF” 
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82a PRINT “OF THE HOSTAGES, TURKEY!!!" 
83a GOTO 97a 

B4@ IF Ti >) = i@@ THEN 884 

85@ PRINT "GOOD SHOOTING! YOU HAVE" 

B6@ PRINT "ELIMINATED ANOTHER KNIGHT!” 
865 GOSUR 19a 

87a GOTO 942 

66a IF H> = @ANDH ( = & THEN ime 
88S GOSUR 21a 

89% PRINT "THINK FASTER!! YOU HAVE BEEN" 
9aa@ PRINT "HIT BY ONE OF THE KNIGHTS!!" 
914 HK = HK + 1 

920 IF HK > = 6 THEN 12608 

934 GOTO 39a 

344 K = K - 1: PRINT Ky" KNIGHTS REMAIN" 
95@ IF K ¢ = @ THEN liea 

964 GOTO 99a 

972 HD = HD - I 

98@ IF HD ¢ = @ THEN 1182 

990 FOR TX = 1 TO 15@@: NEXT : HOME 

995 GOTO 14m 

1@a@ REM CLEAR PRINT AREA 

aia GOTO 59a 

mea IF HD ¢ = @ THEN 89 

1@3@ PRINT "GOOD THING YOU DIDN'T SHOOT!" 
i@42 PRINT "THAT WAS A HOSTAGE!" 

1@45 GOSUB 194% 

1a5a GOTO 599 

ig6a@ REM HIT ENOUGH 

1@6a PRINT "YOU HAVE BEEN HIT "SHK3" TIMES. ” 
1@9@ PRINT "YOUR BODY CANNOT STAND" 

11a@ PRINT "ANY MORE. YOU ARE DYING.” 
tiia@ GOTO 1538 

1if#@ REM KNIGHTS KILLED 

113@ GOSUB 1920 

114@ PRINT "YOU HAVE KILLED ALL TEN" 
115@ PRINT "KNIGHTS. THE KING WILL BE” 
116@ PRINT "PROUD GF YOU, MY FRIEND..." 
1165 GOSUB 19a 

1174 GOTO 1530 

118% REM HOSTAGES GONE 

119@ GOSUR i8aa 

yeaa PRINT "YOU HAVE KILLED ALL GF THE " 
121@ PRINT "HOSTAGES... YOU TURKEY! !" 
teed PRINT “THE KING WILL HAVE YOUR HEAD! !” 
1234 GOTO 99a 

124@ REM COMPLETE MISS 

esa XX = INT (37 * RND (1) + 3) 
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1278 
128 
125@ 
1295 
1314 
1328 
133@ 
135 
136@ 
137a 
1388 
14a@ 
1414 
1428 
1425 
1434 
1444 
14350 
146a 
1465 
1478 
148a 
149@ 
1S 
iSia 
152 

153 
154 
1550 


i335 


156a 
157@ 
158 
1598 
16aa@ 
161 
1624 
1634 
1648 
1658 
16648 
1678 
168 
1694 
17 
171g 
18a 
181@ 
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YY = INT (1@ # RND (1) + 13) 


IF YY ¢,= 17 THEN 127@ 

COLOR= @: PLOT XxX, YY 

GOSUB 2128 

PRINT "YOU'LL HAVE TO DO BETTER" 

PRINT "THAN THAT, YOU'VE MISSED!!" 
GOTO 992 

REM CROSSBOW ROUNDS 

VTAB 21: HTAB 1 

PRINT "YOU HAVE "SCR" ARROWS TO FIRE." 
RETURN 

REM ENQUGH ARROWS LEFT 

IF TI ¢ = 99 THEN CR = CR - 1 

GOSUB i35@: IF CR ¢ = @ THEN 1441 

FOR TX = 1 TO 2@@mt: NEXT +: HOME 

GOTO Soa 

REM END 

FOR TX = 1 TO Saa@: NEXT 

TERT @ HOME 

GOSUB 21aa 

PRINT "YOU HAVE EXHAUSTED YOUR” 

PRINT "SUPPLY OF CROSSBOW ARROWS, " 

IF K ¢ > @ THEN i5i@ 

GOTO 1538 

PRINT "THERE ARE STILL "sks" KNIGHTS" 
PRINT "IN THE CASTLE” 

PRINT 

IF HD ¢ = @ THEN 1564 

SOTO 1620 

GOSUB 21a 

PRINT "YOU ARE A BLUNDERING SHARP-" 
PRINT "SHOOTER, YOU IDIOT!ii" 

PRINT "YOU HAVE HIT AND KILLED ALL” 
PRINT "EIGHT HOSTAGES!" 

PRINT 

PRINT “END OF RUN" 

END 

COLOR= 9: FOR ¥ 
FOR Z = 21 TO = 
NEXT Z: NEXT Y 
RETURN 

COLOR= 6 

FOR Y= (WI + 1) TO (WIo+ 3) 
FOR Z = 21 TO 23: PLOT Y,2Z 
NEXT Zs NEXT Y 

RETURN 

REM BEE-BOOPR 

POKE 769, 33 


= (WI + 1) TO (WI + 3) 


3: PLOT Y,Z 


POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 


772, 14 
768,18 
771 

769,13 
778, 3i2 
768, 25 
771 


RETURN 


REM 

POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 


TA-DA TA-DAA!! 
769,4 
77a, 23 
768, 12 
771 
769, 8 
770, 14 
768, 12 
771 
769, 4 
778, 23 
768,18 
774 
769, 8 
77a, 14 
768, 5a 
771 


RETURN 


POKE 
POKE 
POKE 


769, 200 
778, 75 
768, 1 


RETURN 
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Mind Invasion for the Apple Il 


i@ REM PROGRAM TITLE MIND INVASION 
= REM INSTRUCTION ROUTINE 
3@ CLEAR : GOSUB iS@@:J = i:TR = 1 
40 GR: REM OUTER GRAPHICS 
S@ X = 1is¥ = 38:K = 1:PN = 227X = 1939:TL 
= TXsXi = 1 
6@ COLOR= Ke PLOT X1,Xs PLOT Y,X: PLOT X1 
+ 2,X:s PLOT Y - 2,X 
7a X = X + 2rY = Yow dit = J + iiXi = Xi + 1 
B@ IF J ¢ > 8 THEN GOTO 6a 
94 REM GOTO CHARACTER PRINT/IF DONE 
95 PLOT X1,X2 PLOT Y¥,XeXi = Xi - isY¥ = 
Y+tu:ixX =X +i 
i@@o IF J = 16 THEN POKE TX,224:N = 14: 
GOTO 148 
11@ COLOR= Kz: PLOT Xi,X: PLOT ¥,X: PLOT X1 
+ 2,X2 PLOT Y - &,X 
115 IF PN = 1 THEN Ai) = xXisAC2) = Yel = 
AC) sR = ACE) 
12a X = X + SeXl = Xt - beY = ¥ + i 
134 J = J + isPN = 2: GOTO ima 
14@ VTAH Gi: HTAR 23: PRINT "YOUR POINTS= °3 
iS@ PI = @ 
16@ GOSUR 91a 
17@ PRINT "PLAYER: " sNS(B2Z) 
fa@ REM CHARACTER GRAPHICS VARTABLES 
Hig Jo= ¥:QU = 2:QW = Score G:F = iasTC 
= 12:8BC = 16:7 = 1sEG = ErFe = F 
@KY = 1:6 = 3@: IF TI >) = 3 THEN S88 
@ COLOR= 13: FOR I = @ TO J: PLOT GU + 
I,&: PLOT GW + 1,E: PLOT QU + I,F: PLO 
T QW + 1,F2E1 = E - i:Fil = F + i 
24a T= T+ 
#5@ COLOR= @: PLOT GU + I,6: PLOY GW + f, 
Es EO QU + 1,F: PLOT OW + I,F:E1 = E 


Tw i 


=J-t 
: @ TO J: PLOT Gu + 
I,F - 1: PLOT QU + 
r, E - 1: PLOT GU + I.E: PLOT GU + 1,F 
PAW PLOT: OW 4 1,6.= te PLOT OW # Ive -4- te 
PLOT GW + I,Ei ~ i: PLOT QW + I,F1l +4 
#9@ COLOR= @: PLOT GU + I,F - Ll: PLOT Ow + 
I,F - 1: PLOT QU + I1,E - i: PLOT QU 
+ I,—: PLOT QU + I,F 


n 
& 
re 
TI 
~ 
~ 
il 
fet 
an 
ok 
mM 
= 
Nona 


++ 
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X 


PLOT GW+ I,E - 1: PLOT QW + I,F + 1s 
PLOT GW + I,E1 - i: PLOT Q“W + I,F1 +1 
+ 1:El = ES - @:Fil = Fe 


E=E& ~ 1:F = F 
+ @sFl = Ee + = 
IF T ¢ = 4 THEN E@ = Ee + 1:Fe = Fe 
+ isT = FT +l 
IF T >) = & THEN E& = Ee - i:Fe = Fe 
-~ i:sT = T+ i 
REM RESET VARIABLES IF DONE 
GOTO 7aa 
IF T >) = @ THEN far 
KY = KY + 1: GOTO 26a 


REM FOR CHARACTER CLEAR 
XS = PEEK ( - 16384) ~ 128 


TI = Tl + td: REM LIMIT COUNT WITHOUT 


MOVEMENT 
IF XS ¢ > 73 AND XS ¢ > 77 THEN 
POKE ¢ ~ 16368),@: GOTQ 34a 


TI = t: REM PLACEMENT/LIMIT/RESET 


IF XS = 73 THEN POKE ( — 16368),@: 
GOTO 462 

IF XS = 77 THEN POKE ( - 16369),@: 
GOTO 49 

GOTO 342 

POKE TX,@: IF TX = 1@83 THEN TX = Tx 
+ B56 


IF TX >) 1555 AND TX ¢ = 1939 THEN 

TX = TX - 128 

IF TX ) 1@83 AND TX ( = 1339 THEN TX 
= TX - 128 


IF TX = 1555 THEN TX = TX + 128 

POKE TX, ce@4:UcKY) = XS: GOTO 34a 
POKE TX,@: IF TX = 1939 THEN TX = TX 
- 856 


IF TX ¢ 1939 AND TX >) = 1555 THEN TX 
= TX + 128 
IF TX ) = 1883 AND TX ( 1467 THEN 


TX = TX + 128 
IF TX = 1339 THEN TX = TX - 128 
POKE TX, @24:U(KY) = XS: GOTO 34a 
REM TOP/BOTTOM CHARACTERS 

FOR V = 1 TO G: FOR OX = 15 TO 25: 
PLOT GX, TC 

PLOT QX, HC: NEXT 
COLOR= @: FOR GX = 
PLOT QX,BC: NEXT : 


TO = TO + 1:kC = BC - 1:6 = G- 8 


427 


66@ REM REPLACE USER CHARACTER 

670 IF PEEK (TX) = @ THEN PGOKE TX,235 

68a GOTO 3i 

7aa REM CRUSHER MOVEMENT 

7a5 COLOR= @: PLOT (ACi) + 2),9: PLOT 
(A(z) - 2),9 

7i@® PLOT L158 

72a IF ARS ¢ 3 THEN 75@ 

73a lL = lL + Ss = R- 3 

74@ COLOR= K: PLOT L,1iS: PLOT R,iS:GOTO 404 

75Q lL = Ati)y sR = ACS): GOTO Sew 

76@ POKE L,K: POKE (L + £),4 

77%@ POKE R,K: POKE (R - &),K 

7eaa REM RECYCLE 

73@ GOTO 42% 

Baa REM CRUSHED? 

Bia IF PEEK (TX) = @ THEN 844 

Bea IF TI ¢ = & AND UtKY) ¢ > UCKY - 1) 
THEN FI = PI + ABS (TX -— TL): GOSUB 

91@ HTAB 35: VTABR @i: PRINT PI: RETURN 

92@ GOTO 23¢@ 

95@ REM PLAYER ADVANCE/END 

96@ TP(PZ) = PIsPI] = @sPzZ = PZ + i 

974 IF PZ > PL THEN GOSUB 1f@@:TR = TR + 
1sPZ = 1 

98@ IF TR > = 3 THEN GOSUB 1244: GOTO 
1@1i@ 

99a FOR LX = 1 TO 14: PRINT : NEXT 

1a@@ GOSUB Fi@@: HOME 2:3 = 1: GOTO 4@ 

1@1@ REM END/HIGH POINT WINNER 

1@2a T= @sH = i: IF H = PL THEN ti 

1@3@ IF FTCH) >) = FITCH + 1) THEN 1288 

1240 FT = FITCH) sFTCH) = FITCH + 1) 

15a FITCH + 1) = FTN = NéCH) ENS CHD = NG 
fh} + 1) 


i@6a NCH + 1) = NS 

1a7a@ oT = 1 

1488 H =H + 1 

iag@ IF H ¢ PL THEN i@3d 

1i1@@ IF T = 1 THEN ie: REM NOT REFINED 
111@ GOTO 13a 


112@ TEXT 

113@ HOME 

114@ PRINT "YOUR TOTAL POINTS, AFTER &" 
115@ PRINT "ROUNDS="sTP(H) + WECH) 

116@ GOTO 1394 

zag REM TALLY FIRST ROUND POINTS 

121@ IF TR >) = & THEN RETURN 


428 


Leed 
123@ 


FOR I 


WE(T) = 


= 1 TO PL 
TP(I): NEXT : RETURN 


124@ REM FINAL TALLY 


1250 
1E6@ 
12748 
1284 
130a@ 
i3ia@ 
1i3sea 
133a 
134% 
135a 
1364 
1378 
1388 
139@ 
1402 
1414 
15@a 
151@ 
1Sea 
153a 
154 
1S5@ 
1568 
157@ 
158 
159@ 
1600 
1614 
162@ 
1638 
1642 
165 
1668 
1674 


1684 


1698 
17 Ga 
1714 
17z2a 
173@ 
1748 
175a 
1774 
1780 


FOR I 


FT(I) = 


NEXT 
RETURN 
REM T 
HOME 
Tet 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 
NEXT 
PRINT 
PRINT 
END 
REM I 
I¢ = "M 
J = iis 
FOR LX 
HTAH I 
FOR Y¥ 


= 1 TO PL 
WECI) + TPCT) 


OP WINNER (MORE THAN 1 PLAYER) 


"THE TOP WINNER: "3N8(I)¢" WITH"; 
FTCI) 3" POINTS." 

"FOLLOWED BY:" 

= 2 TO PL: PRINT NSCT) s" WITH” 
FTr(I)s" POINTS. " 


“END OF PROGRAM RUN." 


NSTRUCT IONS 

IND INVASION" 

HOME 

= 1 TO LEN (1%) 

: PRINT MID (1$,LX,1)3 
= i TO 5@: NEXT Y 


I = I + i: NEXT LX 


FOR Y = 1 TO i@@@: NEXT 

PRINT 

INPUT "PLAYER NUMBER (1-1) "3;PL 

IF PL ¢ = @ GR PL > = 11 THEN 1590 
PRINT "PLAY QUTLINE NECESSARY "3 

INPUT X% 

IF X¥$ = "N" OR X# = "NO" THEN 224a 
PRINT 

PRINT "EACH OF YOU "3;PL3" PLAYERS WILL" 
PRINT "EXPERIENCE A NEW FORM OF MIND" 
PRINT “INVASION. THE ORJECT OF THE 
GAMEs" 

PRINT "KEEP PLAYING AS LONG AS 
POSSIBLE" 

PRINT "WITHOUT GETTING *CRUSHED’. " 
PRINT "YOU, THE USER, WILL BE LOCATED ” 
PRINT "AT THE CENTER OF THE VIDEO " 
PRINT "IN THE FORM OF A BLUE BLOCK. " 
PRINT "YOUR ONLY MOVEMENTS WILL BE UP" 
PRINT "AND DOWN, YOU WILL DO THIS “ 
PRINT "WITH THE ‘1? AND ’M'KEYS. " 
PRINT 

PRINT "PRESS ENTER TO CONTINUE"; 
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1739@ 
18a@ 
181a@ 


162 
18sa 


1848 
1858 
186a 


187a 
188@ 
1892 
19mg 
191@ 
1924 
1925 
1938 


1944 
195¢ 
1955 
196 
197@ 
1984 
199@ 


eae 
22ig@ 
ease 
easa 
2a4a 
£a5a 
Za68 
2a7@ 
peatat ot" 
eaoa 
21aa 
2105 
2£11@ 
rom eed’) 
£13 
2144 
2£15@ 
2168 
rears" 
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INPUT X% 

HOME 

PRINT "TO TAKE ADVANTAGE OF ANY 
POINTS” 

PRINT "YGU MUST BE CONSTANTLY MOVING” 
PRINT "UP OR DOWN. THE OUTER 
ROUNDARIES" 

PRINT "OF THE VIDEO WILL CONTAIN" 
PRINT "FLASHING LIGHTS FOR CONFUSION. 
PRINT "ALSO CONTAINED IN THE 
BROUNDARTES" 

PRINT "ARE BLOCKS, TWO OF WHICH" 
PRINT "WITHOUT NOTICE WILL MOVE VERY" 
PRINT "GUICKLY TOWARD THE CENTER. TQ” 
PRINT “YOUR LOCATION. IF YOU CAN " 
PRINT "MOVE QUT GF THE WAY, YOU CAN” 
PRINT "CONTINUE PLAYING; BUT IF, ON” 
FOR LX = 1 TO 2@@uas NEXT 

PRINT "THE OTHER HAND, YOU ARE 
CRUSHED, " 

PRINT "PLAY WILL ADVANCE TO THE NEXT" 
PRINT "PLAYER. THIS IS ALSO TRUE IF" 
PRINT "YOU COLLIDE WITH THE BLOCKS. " 
FOR LX = 1 TO Sits NEXT LX 

PRINT "PRESS ENTER TO CONTINUE” 

INPUT xX 

HOME = PRINT "THE GAME WILL TERMINATE 
WHEN EACH” 

PRINT "PLAYER HAS PLAYEDATOTAL OF TWO" 
PRINT “ROUNDS. THE PLAYER FINISHING " 
PRINT "WITH THE HIGHEST POINTS WILL RE" 
PRINT "THE WINNER..." 

PRINT 

PRINT "NOW ENTER THE FIRST NAMES" 
PRINT "OF THE °:PL35" PLAYERS:” 

FOR T= 1 TO PLe INPUT N&(T) 


NEXT 
PZ = 1 

PRINT N#(PZ) 35" WILL NOW PLAY. PRESS” 
IF PZ > = 2 OR TR > = & THEN 215i 


PRINT "THE ENTER KEY WHEN READY. " 
INPUT S% 

HOME 

RETURN 

PRINT "THE ENTER KEY WHEN READY"; 
INPUT X®:TI = @: RETURN 

COLOR= @: PLOT QU + I,F - 1: PLOT Gw 
+ T,F - is PLOT Q“U + I,E - i: BLOT Gu 
+ 1,6: PLOT QU + I,F 


Trapped for the Apple I! 


i@ REM PROGRAM TITLE: TRAPPED 

15 PRINT CHR# (4) :"BLOADSOUND" 
2@ HOME : CLEAR : DIM AA(1E), PI¢ 
3@ PRINT "* TRAPPED #*” 

4@ PRINT 


12), 1$(1) 


INPUT "LIST INSTRUCTIONS?" :W& 


s@ IF Wh = "¥Y" OR WH = "YES" THEN GOSUB 


Sa 
62 HOME : GOSUB 33@a:TU = 1 
74 OG = i:MM = @:CR = a 
8a «GR 
22 CO = @:BR = @:TP = 1E + 4:TR 
i@a REM HBORDER GRAPHICS 
LiQ@ X = 1@24:C0 = 2@4:V = &@ 
1e@ COLOR= 12: HLIN @,39 AT a 


i@§ HLIN @,39 AT i 

13@ HLIN @,39 AT 39 

135 HLIN @,39 AT 38 

142 VLIN @,39 AT @ 

145 VLIN 2,37 AT i 

15@ VLIN @,39 AT 39: GOSUR 345a 
155 VLIN 2,37 AT 38 

i6@ REM INNER GRAPHICS 


165 C = @ 

17a R= vee * ( INT ¢ RND (1) * 13 + 

18@ Ri INT ¢( RND (1) % Ga + 1) 

185 IF C > @ THEN GOTO 268 

19@ RE = Ri + G:RS = INT ¢€ RND (1 
* 3 + 1) 

Ewa R4 = Ri + R3:R5 = RE + RS 

218 R6 = INT ( RND (1) * & + 4) 


ee@ IF R6 = & THEN R4 = RS 
234 HLIN R1,R4 AT R 

c4e U= Uo + 1 

e5@ IF U ¢ > S&S THEN 17@ 
26@ HLIN @,Ri AT R + & 

265 HLIN @, Re AT R + 4 

27@ HLIN R4,39 AT R - & 
275 HLIN RS,39 AT R ~ 4 
277 IF C > & THEN GOTO 320 


26a IF R} = L& THEN R Ro- 4:C 
GOTO isa 
285 IF R ¢ = #6 THEN R = R + 4:C 


18@ 
3e@ REM START POSITION 
33@ GOSUER 35M 
34@ PC = ZZ: GOSUR 39a 
345 PR = ZZ 


= TP 


4)) 


) 


= C + 1: 


oa Wie, sate 
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IF SCRN( PC,PR) ¢ > @ OR SCRN( (PC 


+ 2),PR) ¢ > @ THEN 338 
IF SCRN( PC, (PR + 1)) ¢ > @ OR 
SCRN( PC, (PR ~ 1)) ¢ > @ THEN 323@ 


Pi = PC + 2:P2 = PR: COLOR= 9: PLOT PC, 


PR: COLOR= 13: PLOT Pi, Pe 


REM MOVEMENT OF COMPUTER PIECE 
IF SCRN( PC, (PR - 1)) = @ THEN A = 
i: GOTO 44a 
IF SCRN( PC, (PR + 1)) = @ THEN A = 
GOTO 44@ 
TF SCRN( (PC - 2),PR) = @ THEN A = 
3: GOTO 448 
IF SCRN( (PC + &),PR) = @ THEN A = 
4: GOTO 442 
GOTO 81a 
COLGR= @: GOSUR 7a 
PLOT PC,PR: IF SCRN( P1,Pe) = @ 
THEN 17a 
X¥S = PEEK ¢ - 16384) - 1264: IF XS > 
@ THEN Fae 
GOTO 1134 
POKE ( - 16368),@: GN A GOTO 46a, 
478, 482, 4908 
PR = PR — 1: COLOR= 9: PLOT PC, PReMM 


= @: GOTO 71@ 

PR = PR + 1: COLOR= 9: PLOT PC, PR=MM 
= @: GOTO 4aa@ 

pc = BC — @: COLOR= 9: PLOT PC, PR: 
GOTO 76a 

po = PO + es COLOR= 9: PLOT PC, PR: 
GOTO 42@ 

REM DOWN/UP-SEARCH LEFT/RIGHT 


TF SCRN¢ (PC ~- 2),PR) = @ THEN ang 


TF ScRN( (RPC + #),PR) = @ THEN 4 
IF @ = 1 THEN 39@ 

GOTO 4a 

REM LEFT/RIGHT-SEARCH DOWN/UP 


IF SCRN( PC, (PR - 1)) = @ THEN 392 
IF SCRN( PC, (PR + 1)) = @ THEN 4@@ 
IF A = 3 THEN 41@ 

GOTO 42 

REM TRAPPED (COUNTER) 


5 ACQ) = A 
IF A(Q@G) = ACA - 1) THEN 88@ 
IF MM > = & THEN 1240 
CR = CR + 14 
QQ = OG + 1: IF @Q > = 3 THEN QD = 1 


ri 


GOTO 394 
TF SCRN( (PC + 2),PR) = 13 QR SCRN 
€ (PC - 2),PR) = 13 THEN MM = MM + 1 
GOTO 630 
REM USER PIECE/MOVE PER KEY 
KE = PEEK ( - 16384) - 1é 
IF KE = 77 THEN POKE ¢ — 16368), @: 
GOTO 37a 
IF KE = 73 THEN POKE ( — 163568), : 
GOTO 994 
IF KE = 75 THEN POKE ( —- 16368), 4: 
GOTO 1aia 
IF KE = 74 THEN POKE (¢ ~- 16368),@: 
GOTO 1a@3¢@ 
CC = @: GOTO 45a 


IF SCRN( Pi, (P2 + 1)) ¢ > @ THEN 96@ 
GOSUB 71@@: COLOR= @: PLOT Pi, Pe: Pe 
= Pe + 1: GOTO i@5a@ 
IF SCRN( P11, (PE - 1)) ¢ > @ THEN 96a 
GOSUB 71a: COLOGR= @: PLOT Pi, Pe:Pe 
= Pe - i: GOTO lace 
IF SCRN( (PL + 2),P2) (¢ > @ THEN 96% 
GOSUB 71@@: COLOR= @: PLOT Pi, PEsPi 
= Pl + 2: GOTO 1a5@ 
IF SCRN¢ (Pl —- &),PE) ¢ > @ THEN 96% 
GOSUR 7i@@: COLOR= @: PLOT Pi, Pe:Pi 
= Pi -éz 
COLOR= i3: PLOT Pl,Pe:sTP = TP - 1 
REM USERS MOVES (COUNTER) 
CC = CC + 1: IF CO >) = 1@ THEN CC = 
@: GOTO 45% 
GOTO 39aa 
CR = CR+i1 
IF CR > = 18@@ THEN GOSUB 1458: 
GOTO i118 
GOTO 45a 
REM RECHARGE COMPUTER PIECE 
COLOR= ti: PLOT PC,PR: FOR C = 1 TO 
2a@: NEXT 
GOSUBR 7Eeaa 
COLOR= @: PLOT PC, PR 
GOSUB 151@: GOSUB 3454: GOTO 45a 
REM TRAPPED? 
REM CHECK CHARGE RATE FIRST 
IF CR > = 925 THEN 124a 
GOTO 1293 
CR = 1@@a: GOTO 137@ 


REM TRAPPED COMPUTER PIECE 
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1saa 
131@ 


13ea 
134a 
135 
136 
137@ 
138a@ 
139@ 
145a 
1460 
147 
1480 
149@ 
1495 
15aa 
1514 
152 

153@ 
1542 
155@ 
1688 
161a 
1620 
163@ 
1648 
17@@ 
1714 
172 
173 
1748 
1758 
1768 


177g 
i798 


18a2 
1818 


1828 
183a 
1840 
145@ 
1868 
187@ 
1888 
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L 


L 


Rp 


= @ 

COLOR= @: PLOT PC,PR: FOR TI = 

1 TO i@@: NEXT 

COLOR= lis PLOT PC,PR:FOR TI = 1 TO 5a 
NEXT 

=LL+ i: IF Lb ¢ = & THEN 1314 
GOTO 162 
GOSUB 145@ 

= P+tsE 


GOTO 458 


REM MESSAGE 


MG = 1744:M$ = "RECHARGING" 
FOR I = 1 TO LEN (MS) 


POKE MG, ASC ( MIDS (M$,1,1)) + 128 


MG = MG + is NEXT 


GOSUB 73aa 


POKE MG, 16@:s RETURN 
MG = 1744 
FOR I = 1 TQ LEN (MS) 


POKE MG, 168 


MG = MG + 1: NEXT 


POKE MG, 16@: RETURN 
REM MESSAGE (TRAPPED) 


MG = 1744 

MH = "He TRAPPED #4" 
GOSUEB 147a 
GOTO 159148 


REM USER "BURNED" 


MG = 1744 
M% = "* USER BURNED *" 
GOSUBR 1472 


L. 


REM LEAVE USER POSITION AS-IS 
= @:MhM = a 


COLOR= @: PLOT Pi,Pe: FOR TI = 1 TO 


ia@a: NEXT 
COLOR= 13: Pp =1 TO 5a 


L. I 
NEXT =: IF Lk ¢ = 1 THEN L = L + ig 
GOTO 176a 


OT Pi, Pe: FOR T 


BR = BR + 1: GOSUB 151a@: GOSUE 345a@ 


L 


IF BR > = 6 THEN GOSUB 183@: GOTO 
187@ 

GOTO 445 

REM SQUND 

REM SOUND 

HOME : RETURN 

PRINT 

PRINT "YOU'VE BEEN BURNED" ;BRs "TIMES": 


189 
19a 


191@ 
192@ 
193@ 
194@ 
195@ 
156@ 


1974 
Lae 
2aia 
2@2a 
fae 
2a4a 
ease 
feasted 
2108 
2£11@ 
21za 


2138 


uN 
oc 
ae 


a Ty 
To 


fo no fi fa fa mg fe ma fo rm 
QW Gi Gi Gi GI Gi Gi fo fo re 


NW PGifite Su Ow 
Seq GSusseseq 


PRINT "SUCKER! !":TP = a 

PRINT "YOU? RE OUT GF THE GAME...": 
GOTO 22a 

REM TRAPPED 

GOSUB 183@ 

PRINT "YA GOT ME TRAPPED, TURKEY! !!"; 
PRINT "YOUR TOTAL POINTS NOW EQUAL "; 
PRINT TP 

PRINT "YOU MADE A TOTAL OF "sTR - TPs" 
MOVES" 

PRINT "BEFORE TRAPPING ME....” 

REM PLAYER ADVANCE/POINTS 
PI(CTU) = TP 

IF TU = N THEN 210@ 


TU = TU + 1 
PRINT "PRESS RETURN, "3I(TU) 
INPUT WS:CLS 
GOTO 72 
REM ALL PLAYED 
REM SORT NUMBERS/PLAYERS 
IF N = 1 THEN eee 
Fo= @:AA = 1 


IF PICAA) >) = PICAAR + 1) THEN 219% 
BP = PI(AA) PIAA) = PICAA + 1) 


PI(AR + 1) = PstI = T[S(AA) 


I$(AA) = IS(AA + 1) sTS(AA + 1) = TH 


F= it 
IF AA ( N THEN AA = AA + 1: GOTO Zi4a 
IF F = 1 THEN 213@ 
GOTO 2262 
PRINT "YOUVE PLAYED BY YOURSELF, 
AGAINST” 
PRINT "THE COMPUTER. YOU WERE 
BURNED ":BR 
PRINT "TIMES. FINAL TRAPPING SCORE:" 
pPI(TU) 
GOTO 2330 
I= 


PRINT “BEST TRAPPER...."sI8(1) 

PRINT "TOTAL POINTS="sPICT) 

PRINT "FOLLOWING "s1T#(1) 

FOR I = @ TO Nz: PRINT I#¢I)s 

PRINT " WITH @ SCORE OF:": 

PRINT PICT) 

FOR TI = 1 TO i@@@: NEXT TI, 

PRINT 

PRINT "END OF PROGRAM RUN..... 7 

PRINT “UNLESS ALL WANT TO PLAY AGAIN? 22" 
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38a 
233 
24@a 
e4ia 
Ss3a2 
331 
3328 
3338 
3348 
S35 
5368 
3378 
3388 
3398 


S4Qa 


3418 
S42 
3430 
3444 
3458 
346 
3478 
346 
34394 
S52 
S51 


ne 


Soe 
353@ 


3548 
on 


355a 
S560 


3578 
2588 


3398 
36a 
3618 


3620 
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PRINT "IF SO, TYPE RUN. ” 

PRINT : FOR TI = 1 TO 15@@: NEXT 
PRINT “END” 

END 

REM PLAYERS (NUMBER, NAMES) 

PRINT "ENTER NUMBER OF PLAYERS” 
INPUT N 

IF N ¢ = @ OR N > = 11 THEN 3318 
PRINT "NOW ENTER THE FIRST NAMES” 
PRINT "OF THE "Ne" PLAYERS" 

FOR I = 1-TO-N 

INPUT I$(I) 3 NEXT 

PRINT 

PRINT "THE NAME OF THE PLAYER WHO'S 
TURN" 

PRINT "IT IS WILL BE PRINTED AT THE 
BOTTOM" 

PRINT "OF THE GAME BOARD. " 

FOR TI = 1 TO ie: NEXT 

HOME 

RETURN 

REM PLAYER 


MG = 1616 


FOR I = 1 TO LEN (I#{TU)) 

POKE MG, ASC ( MIDS (1#(TU),1,1)) 2MG 
= MG + 1 

NEXT : POKE MG,3@: RETURN 

REM INSTRUCTIONS 

PRINT "UP TO TEN PLAYERS CAN” 

PRINT "TRY TO QUTWIT THE COMPUTER AND" 
PRINT "MANEUVER ITS PIECE INTO A 
SITUATION" 

PRINT "WHERE IT WILL BECOME TRAPPED. ” 
PRINT "THE COMPUTER'S PIECE WILL LOOK " 
PRINT “LIKE AN GRANGE BLOCK. You, 
THE USER," 

PRINT "WILL HAVE A YELLOW BLOCK. " 
PRINT "THE COMPUTER WILL MOVE ITS 
PIECE" 

PRINT "ALL AROUND THE GAME BOARD, 
CHANGING" 

PRINT "DIRECTION WHEN IT SENSES 

AN GESTACLE. " 

PRINT "YOU WILL FOLLOW THE COMPUTER'S 
PIECE” 

PRINT "AND TRY TO MANELIVER IT TO A 
SECTION" 


PRINT "OF THE GAME BOARD WHERE IT 
WILL BE" 

PRINT "TRAPPED-~THAT IS, WHERE IT 
CAN ONLY” 

PRINT "MOVE LEFT OR RIGHT.” 

PRINT 

INPUT "PRESS RETURN TO CONTINUE" ;W#: 
HOME 

PRINT "THE COMPUTER'S PIECE WILL 
CONTAIN A” 

PRINT "?CHARGE’ ;1F YOU SIMULTANEOUSLY 
END AT" 

PRINT "THE SAME SPOT, YOU'LL GET ° 
BURNED’. " 

PRINT "SIX "BURNS? AND YOU’ RE OUT OF 
THE" 

PRINT "GAME. YOU WILL MOVE YOUR PIECE" 
PRINT "EY USING THE *J? AND 'H? " 
PRINT "KEYS TO MOVE LEFT AND RIGHT, 
AND THE" 

PRINT "71? AND ’M? KEYS TO MOVE UP 
AND DOWN. " 

PRINT "WHENEVER YOU MOVE, THE 
COMPUTER WILL" 

PRINT "? BLANK? ITS PIECE. YOU WILL 
BE ALLOWED" 

PRINT "ONLY TEN CONSECUTIVE MOVES 
AT ONE " 

PRINT "TIME. WHEN YOU WISH TO MOVE, 
HOLD” 

PRINT "DOWN THE CORRECT MOVEMENT KEY. " 
PRINT "POINTS WILL BE DETERMINED BY 
HOW" 

PRINT "MANY MOVES IT TAKES THE USER" 
PRINT "TO TRAP THE COMPUTER’S PIECE. " 
PRINT "REMEMBER, TO TRAP THE 
COMPUTER'S PIECE," 

PRINT "ONLY ALLOW IT TO MOVE LEFT 
AND RIGHT. " 

INPUT "PRESS RETURN TO START: ";Ws 
HOME : RETURN 


ZZ = INT (17 * RND (1) + Gia) 


RETURN 

POKE 769, 25 
POKE 778, 25 
POKE 766, 1 
CALL 771 
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RETURN 
POKE 769,93 

POKE 772, 5 

POKE 768, 1 

CALL 771 

RETURN 

FOR XQ = 13@ TO 27@ STEP 2a 
IF XQ) 254 THEN XQ = 255 
POKE 769, XQ 

POKE 77@,6 

POKE 768, 1@ 

CALL 771 

NEXT 

RETURN 

FOR XQ = 1 70 4 

POKE 769, 2a 

POKE 772, 4 

POKE 768,5 

CALL 771 

POKE 769,56 

POKE 77@, 5 

POKE 768,5 

CALL 771 

NEXT 

RETURN 
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REM PROGRAM TITLE: ELEVATOR 
P = 20: HOME 

DIM F(6@),F$(62), GS (6) 

DIM KO(6@) 

HTAR i@: PRINT "*** ELEVATOR **#" 
PRINT 

PRINT “INSTRUCTIONS REQUIRED (Y/N)"; 
INPUT I#: IF I# = "N" THEN N = i 
INPUT "FIRST NAME: "sN¢ 

PRINT : IF N= 1 THEN £3@ 

INPUT "PRESENT OCCUPATION: ";P% 
GOSUB 215@: HOME 

PRINT "YOU HAVE JUST BEEN FIRED AS A ”; 
PRINT PSpt ein 

PRINT “BUT, YOU ARE IN LUCK. I HAVE JUST” 
PRINT “HIRED YOU TO BE AN ELEVATOR" 
PRINT “ATTENDANT IN MY COMPUTER-" 
PRINT "IZED DEPARTMENT STORE. ” 
PRINT "YOUR JOB WILL BE SIMPLE, " 
PRINT N@;". ALL YOU HAVE TO DO ” 
PRINT "IS REMEMBER WHAT IS CON-" 
PRINT "TAINED ON EACH OF SIXTEEN” 


PRINT "FLOORS SO THAT YOU CAN TAKE" 
PRINT “ALL OF MY CUSTOMERS TO THE" 
PRINT “RIGHT LOCATION...” 

PRINT 

PRINT 


REM WHAT?S ON EACH FLOOR? 

FOR I = & TO 19: READ F@(I):s NEXT 

IF N = 1 THEN 37m 

POKE ¢ ~ 16368),%@: GOSUB 215a: HOME 
PRINT "I ALMOST FORGOT TO TELL 
YOU-~-THE" 

es "CUSTOMERS, WHEN STEPPING ONTO 
PRINT "ELEVATOR, WILL TELL YOU WHAT 
THEY ARE" 

PRINT "SHOPPING FOR. THEY WON’ T TELL 
You" 

PRINT “AGAIN, BUT FOR EVERY CUSTOMER 
YOU PLACE" 

PRINT "ON THE RIGHT FLOOR, YOU?LL. 

BE PAID" 

PRINT "$id. @@. THAT WILL BE YOUR ONLY 
WAGE!" 
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PRINT "CUSTOMERS WILL BE GETTING GN 
AND GFF" 
PRINT “THE ELEVATOR AT DIFFERENT STOPS, 


PRINT “YOU WILL NEED TO REMEMBER 
THESE, TOO,” 

PRINT N&s"E" 

FOKE ( - 16368),@: GOSUB 215@: HOME 
PRINT "HERE ARE THE FLOORS AND 
CONTENTS :" 

FOR l= = TO 16 

PRINT I3") "“sFS(T)3 

IF 1 = @ THEN TT = I ® @@@: PRINT : 
GOSUR £190 

IF I> = @ AND I ¢ 


= 3 THEN 448 
IF I> = 6AND I ¢ = 1 


@ THEN PRINT 
: GOTO 47@ 
{fF I> = 11 AND I ¢ = 14 THEN 4524 
IF f> = 15 AND I ¢ = 16 THEN 468 
PRINT " "SF#(17):s GOTO 478 
PRINT " "sF8#(18)2 GOTG 478 
PRINT " "sF$(19) 
IF RX = 1 THEN RETURN 
NEXT 
REM VARTARLE RX FOR PRINT ELEMENTS 


FOR [ = 1 TO G: PRINT : NEXT sTT = TT 
+ Sea 

GOSUB £19@: HOME :C = @:GK = @ 

PRINT "YOU SHOULD BE ALL SET, "3N% 


TT = TT - i200: GOSUB Fi9@:RKX = 1 


REM GET CUSTOMERS 


C= (INT ¢ RND (1) * 14 + 1) 


PRINT N# 3", YOU NOW HAVE "3C3" 
CUSTOMER (S)" 

PRINT "GETTING ONTO MY ELEVATOR. " 
REM GET C RESPONSES 

= 1} 

REM FLOOR NUMBER 

= INT (¢ RND (1) * 14 + &) 


F(i) = Fil = I + 1 


IF 1 ¢ = € THEN 39@ 
REM FLOGR TITLES 
FOR T= 1 7T0C 


GH(I) = Fe{F(I)) 
KO(F(T)) = KOCFCI)) + 2 


NEXT 
GOSUB £19@: PRINT 


F 


N 


QD 


PRINT "THE CUSTOMER'S DESTINATIGNS:" 


PRINT =: FOR I = FL TOC 
PRINT GHCI)3""s 


= F(t) 

IF F >} = 2 AND F (¢ = 3S THEN 768 
IF F > = 11 AND F (¢ = 14 THEN 77@ 
IF F >} = 15 AND F ¢ = 16 THEN 78a 


PRINT " FLOOR" 
NEXT = GOTO 79 
GOSUB 444: GOTO 75a 
GOSUB 45a: GOTO 75a 
GOSUBR 464: GOTO 75@ 
GOSUB 2154 
HOME 
PRINT "PRESS <(U> FOR <«UP}" 
PRINT "PRESS «D> FOR <DOWN> ” 
PRINT "THEN ENTER THE FLOOR NUMBER” 
N= @: REM DIRECTION 
POKE ( ~- 16568),@: GOSUB 216% 
= A: POKE ( —- 16368),@: IF D = && 


THEN D® = "UP": GOTO 8&7 


IF D = 66 THEN D# = "DOWN": GOTO 87a 
GOTO 95a 

PRINT "DIRECTION: "sD 

PRINT "FLOOR NUMBER"; 

INPUT FR 

VTAR le: HTABR 15:PRINT "PLEASE WAIT...” 
IF FR = 1 AND TF = @ THEN i2aa 

IF FR ¢ 1 OR FR > 16 THEN Sau 

IF FR = TF THEN 128 

IF FR ¢ TF AND DS = "UP" THEN 1268 

IF FR >) TF AND DS = "DOWN" THEN V = 1: 
GOTO 126e 

GOSUR ElSa@: HOME =: REM PAUSE BEFORE 
START 

IF DS = "UP" THEN 972 

IF Dé = "DOWN" THEN iia4ia 

PRINT "SELECT A DIRECTION, "snes" li" 
PRINT : GOTO Gia 


IF TF > = 17 THEN i@3a 
GOTO 13a 

PRINT "YOU ARE ON THE "sTd3i” FLOOR, 
” INS 

PRINT "YOU CAN NOT GO ANY "sHes" tie 
GOTO 96a 


TS = "TOP"sH® = "HIGHER": GOTO 1aaa 
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1275 
1288 
1292 
13@a 
isi 
13Ea@ 
132s 
1332 
13 3355 
1348 
1358 
1368 
1372 
138@ 
1392 
14aa 
14148 
1428 
143 
1448 
145% 
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IF TF ¢ = i THEN 1@6@ 

GOTO ia72 
TS = "BOTTOM" sHé = "LOWER": GOTO i1a@aa 
REM DOWN CONTINUED MOVEMENT 
FS = — + O:NN = 1: IF FS > 2a THEN FS 


= oe 


IF P > = 2&@ THEN GOTO 115% 

VTAB Ps HTAB it: PRINT FF 

FOR T = 1 TO 4: NEXT 

VTAER Ps HYAR 2@: PRINT " "BP = Pp + i 
IF P ¢ > FS THEN 1885 

REM CONTINUE IF NOT ON FLOOR 

IF TF ¢ > FR THEN 1168 


GOTO 15M 
FS = FS +7 

IF P ) = 2@ THEN 119@ 

GOTO 1090 

VTIAR P: HTAH 2@: PRINT " "sp = 4 
FS = B + @:FF = FF ~ isTF = TF - 1 
GOTO 1090 

REM NOT USED IN APPLE PROGRAM 


REM NOT USED IN APPLE PROGRAM 

IF NN = 1 THEN iti@a 

GOTO 134a 

PRINT "IF WANTING TO GO "3Dé;", USE A” 
IF ¥V = 1 THEN V = @: PRINT "USE A 
PRINT "HIGHER NUMBER THAN THIS FLOOR" 
GOTO 1290 

PRINT "YOU ARE ON THAT FLOOR,” snes” tte 
GOSUB 219%: GOTO Sad 

REM UP MOVEMENT 

IF TF = @ THEN 1462 
F5 = P ~ 6: IF FS ¢ = 4 THEN FS = 4 
REM NOT USED IN APPLE PROGRAM 


IF P ¢ = 4 THEN GOTO 143a 

VITAE P: HTAR 2@: PRINT FF 

FOR T = 1 TO Sits NEXT 

VTAR 6: HTAR £Q@: PRINT " "sp =p - 1 
IF P ¢ > FS THEN 1325 

REM CONTINUE IF NOT GN FLOOR 

IF TF ¢ ) FR THEN 142@ 

GUTO 1500 
FS = FS -7 

IF P ¢ = 4 THEN 143@ 

GOTO 1325 

VTAR P: HTAR 2@: PRINT “ ":p = za 
FS = P = 8:FF = FF + i:TF = TF + 1 


GOTO 1325 


TF = i:P = 12:FF = i 
FS = P~ 7: GOTO 1385 
REM ON FLOOR REQUESTED 
REM NOT USED IN APPLE PROGRAM 
VTA P: HTAR @@: PRINT FF: GOTO 154a 
VTAE P: HTAR 2O: PRINT "1" 
FORT =i70C 
IF FR = F(I) THEN i57@ 
NEXT :KO(FR) = KO(FR) - KG: GOTO i6aa 
PA = PA + 1@:KG = KG + 1 
FCI) = @:XX = 1 
GOTO 156a 
REM DID CUSTOMERS WANT OFF HERE? 
IF XX = @ THEN 1632 
XX = @: GOTO 1772 
PRINT N&;", NO CUSTOMERS WANTED TO 
GET OFF" 
PRINT "ON THIS FLOOR... ":NC = NC + 1 
REM MORE CUSTOMERS STEPPING GN 
IF FZ = i OR FR = 1 THEN AA = 1:FZ2 = @ 
IF AA = 1 THEN 1692 


GOTO i173 
YU = INT ( RND (1) * S&S + 1)eV¥ = C:C = 
CO + YUrCe = YU 

IF C >} = 1@ THEN HV = i:C = C - Ce: 
GOTO 173 

REM GET DESTINATIONS 

GOTO 18a 

REM CONTINUE IF NOT FINISHED 
KG = @: IF GK +} = C THEN 1948 

GOSUB £19a 

GOTO 8a 


KG = KG + KOC(FR)sKO(FR) = @ 
PRINT KG;" CUSTOMERS JUST" 
PRINT "STEPPED OFF MY ELEVATOR, "; 
PRINT N&s;"!": GOSUB 2700 
GK = GK + KG 
REM YY MORE DESTINATIONS 
YU = OBS (C - YY): IF GK )C THEN 1942 
IF YU ¢( = @ THEN PRINT "NO ONE GOT 
ON. ": GOTO 2300 
PRINT N&:", YOU JUST HAD "sYU3;" MORE" 
PRINT "CUSTOMERS STEP ONTO THE” 
PRINT "ELEVATOR. THE DESTINATIGN(S) :” 
KG = @: PRINT : FOR I = yy + 17T0C 


F= INT ¢ RND (1) * 16 + 1) 
IF F = TF THEN 146@ 
IF F = i THEN F(1) = "GROUND" :FZ = 1 


% 
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1875 KO(F) = KOCF) + 1 

188@ F(t) = Fs NEXT + REM FLOORS 

189% REM TITLE GF FLOORS 

1944 FOR I= YY +1 TOC 

13914 GSCI) = FS(F(1))s NEXT 

L928 FL = YY + 1 

1934 GOTO 68a 

194@ REM STOP/CONT 

195@ PRINT : PRINT "YOU HAVE NOW 
COLLECTED:" 

196@ PRINT "$"3PA: PRINT : GOSUE F19a 

1965 PRINT : GOSUE F500 

197@ IF JV = 1 OR GK >} = C THEN 1990 

1984 GOSUB £19@: GOTO SBa@: REM ALL NOT OFF 

199@ PRINT : GOTO 2300 

wade REM DATA FOR FLOGRS 

2a1ia@ DATA WOMENS, MENS, CHILDRENS, INFANTS 

eaica DATA TOYS, CARPETS, COMPUTERS 

ed3@ DATA APPLIANCES, FURNITURE, HARDWARE 

22424 DATA HORRY, AUTO, OFFICE 


ARIA NATTA GATaneiM conan 
mes wr SPP PU g OO OL 


e@6e@ DATA CLOTHES, SUPPLIES, ITEMS 

ea@7a REM DATA ELEMENT 17 WILL BE USED 

2@8a@ REM WITH ELEMENTS 2-5 

eW3@ REM DATA ELEMENT 18 WILL BE USED 

eigw REM WITH ELEMENTS 11-14 

eli@ REM DATA ELEMENT 19 WILL BE USED 

elea@ REM WITH ELEMENTS 15 & 16 

2154 PRINT +: PRINT "PRESS A KEY..." 

£21i6@ A= BEEK ( - 16384) - i28 

ei7a IF A ¢ = 3 THEN 716% 

2#i8Ba@ POKE ¢ — 16368),8@: RETURN 

2£19@ REM TIME LOOP 

ezeaa FOR T = 1 TO TT: NEXT 

#218 GOTO Fiabe 

eaa@ REM CONTINUE? 

e3iv PRINT "WOULD YOU LIKE TQ TAKE ON" 

e324 PRINT "SOME MORE CUSTOMERS, "sN#3"?" 

233@ PRINT “YOUR TOTAL EARNINGS SQ FAR:s"; 

£344 PRINT "$"3RA3 

235@ INPUT AS 

es6@ IF ASB ¢ > "¥" AND AG ( > "YES" THEN 
Lae 

23740 TT = oaads JV = @s PRINT 

238@ PRINT "YOU ARE ON FLOOR "sTF 

239% FOR I = 1 TO i16:KP = KP + KOT): 
NEXT s IF KP > @ THEN GOTO 173@ 

2395 NC = @: GOTO 494 
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6 
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PRINT 

PRINT "END OF ELEVATOR" 

END 

REM POINT SCALE/PAY DEDUCTION 
IF NC ¢ = @ THEN NC = @: RETURN 


PRINT “YOU MADE" :NCy" STOPS THAT WERE" 
PRINT "NOT NECESSARY, "sN%:". YOU" 
PRINT "WILL TAKE A DEDUCTION IN PRY” 
PRINT "OF #22. a2 FOR EACH ONE OF" 
PRINT "THOSE STOPS, TOTAL”; 

NN = NC ® 2: PRINT °¢"3NN 
PRINT "LEAVING YOU "3; 

PA = PA — NN 


NC = 
PRINT "$"5PA: GOSUB 219a 
RETURN 
REM ANY TIPS? 
IF KG ¢ = 1 THEN RETURN 
AA = INT ( RND (1) * &@ + 1) 


IF AA = 1 THEN RETURN 
TI = INT ¢ RND (i) * 1@@ + 1) 
PA = PA + TI 
PRINT 
PRINT “YOU'RE IN LUCK, "sN#3", A” 
PRINT "NICE CUSTOMER JUST GAVE " 
PRINT "YOU A TIP OF"; 
PRINT "S"3TI 
GOSUB 219@: RETURN 
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REM PROGRAM TITLE: FAREWELL 

HOME : HTAB 12: PRINT "#*# FAREWELL #e#" 
PRINT 

INPUT "NUMBER PLAYING (1-1@) "3A 

IF A <¢ 1 OR A> 1@ THEN 2S 

PRINT "THE "sA3" PLAYERS’ FIRST NAMES:” 
FOR I = 1 TOA 

INPUT @$(T) 2 NEXT 

PRINT «U = i 

PRINT "ANY OF YOU NEED TO SEE” 

INPUT "THE INSTRUCTIONS? "3x 

IF X# ¢ > "¥" AND X# ¢ > "YES" THEN 
21a 

PRINT 

PRINT "READ CAREFULLY, IT COULD MEAN” 
PRINT "YOUR LIFE (OR THE GAME!!)..." 
PRINT "EACH PLAYER WILL SEE AND 

STUDY A” 

PRINT "MATRIX OF & BY S SQUARES 
(POSITIONS) " 

PRINT "THESE WILL RANGE FROM THE ” 
PRINT "LETTERS A THROUGH Z WITH" 

PRINT "FOUR SPACES BLANK. TO PLAY:" 
PRINT "THE COMPUTER WILL SELECT FIVE" 
PRINT “POSITIONS AND PLACE COBRAS” 
PRINT “WITHIN EACH. THE COMPUTER WILL" 
PRINT "GHOW YOU WHERE THREE OF THE 
COBRAS ARE" 

PRINT : INPUT "PRESS RETURN, PLEASEs" 5X 
HOME 

PRINT "NOW THE COMPUTER WILL SELECT A” 
PRINT "POSITION AND FLASH AN ASTERISK" 
PRINT "THERE, EACH PLAYER MUST ENTER 
FROM” 

PRINT "MEMORY THE NUMBER WHICH WAS IN 
THAT" 

PRINT "POSITION. IF CORRECT, THE PLAYER" 
PRINT "GAINS i@@a POINTS: IF INCORRECT, 
THE" 

PRINT "PLAYER LOSES i@@@ POINTS. AND.. 
»IF YOU" 

PRINT "SELECT A POSITION WHERE 

THERE?S A" 

PRINT "COBRA... YOU'RE OUT OF THE GAME, 
DEAD!" 
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PRINT "SELECTION WILL CONTINUE FOR AS 


LONG AS" 
PRINT "EACH PLAYER WANTS OR UNTIL 
TWENTY-ONE" 


PRINT "POSITIONS HAVE BEEN ELIMINATED. "” 


INPUT "PRESS RETURN, PLEASE:"3X#: 
GOSUR 220 
HOME : GOTO saa 
DIM L#(3i),PR(31),PC(31),L (31) 
REM LETTERS? 
IF SL ¢ » @ THEN PRINT "ARRANGING 
LETTERS..." 
L = 65:2 = 1:PZ = 1aaa 
Lé¢T) CHR (L)aL¢1) = I 
IF 1] 2? THEN 255 
Tet =lo+ 4: GOTO 235 
GOTO 
REM SGRT LETTERS RANDOMLY 
J =i 
N= INT ¢ RND (1) # (IT - 1) + 1) 
IF L(N) = @ THEN 265 
Le (J) = CHR (N + 64) 
LIN) = @iJ = J + 1 
IF J = I THEN RETURN 
GOTO 265 
REM POSITIONS 
PO = S:PR = S:I = i:PL = PR + 2:7] = 


ro+ Hi 
m 
7 


isPK = PC 
PR(I) = PRsPCC(I) = PCsL¢1) = I 
PO = POC + GsI = I + ttJ = I+ i 
IF I = 27 THEN 345 
IF J = 7 THEN 335 
GOTO 31a 


PR = PL:PL = PL + @:J = 1:PC = PK 
GOTO 31a 

REM THE REMAINING FOUR 
LS(I) = " "SPR(I) = PRsPC(1) = PCsi (1) 
PO = PC + Gil =I + inst = J + il 

IF J = 7 THEN 37& 

GOTO 354 

REM MOVE THE FOUR BLANKS 
Toe i:sJ = isk = 27 
N= INT ( RND (1) * £6 + 1) 

IF L(N) = @ THEN 388 
FE = LO(N) LSND = LCL) 
L$(L) = Fe:rL tN) a 
Lo= bo + i: IF L 
GOTO 3a 


Hou 


31 THEN 418 


= 
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41@ REM NOW PRINT LETTERS 

415 HOME : FOR I = 1 TO su 

42@ VTAB PR(I)s HTABR PO(I): PRINT L#¢I): 
NEXT 

425 REM FINAL GRAPHICS 

43@ X = 2 

435 FOR yY = 4 TO 13 

44a VTAR Ys HTAR X: PRINT "@" 32 NEXT 

445 X = X + 6 


45@ IF X >} = 40 THEN 46% 
455 GOTO 435 
464 FOR X = © TQ 38 


465 VTAH Y: HTAR X: PRINT "@"ss NEXT 

47@ Y= ¥ - 

475 IF Y = 

48@ IF Y = 

485 GOTO 46a 

49@ REM COBRA POSITIONS/PLAYER 

495 C = 1: VT@E 14: HTAR S: PRINT "PLAYER: 
"S$ (U) 3 

Saa N= INT ¢ RND (1) ® (1 - 5) + 4) 

5a5 IF L(N) = @ OR L(N) = 1@@ THEN S5aq 

S1@ CHI(C) = PR(N) sCBE(C) = PC(NDEFS = 
L&(N):C#(C) = Fs 


THEN 49@ 
THEN 498 


no fi fs 


SiS Lé(N) = CHR (428) 2L(N) = 1@a 

se@ IF C = 5 THEN 56a 

se3 IF € ¢ = 3 THEN GOSUB 53a 

seo C= C + i: GOTO Saa 

so@ XX = @: REM DEFINE 3 (1 FOR COMPUTER) 
oa5 VTAR PR(N): HTAB PC{N)s PRINT L&(N)¢3 


FOR T = 1 TO i@@: NEXT 

54@ VTAR PRUN): HTABR PC(N): PRINT " "ge 
FOR T = 1 TO S@: NEXT 

545 \VTAR PR(N): HTAR PC(N): PRINT Fas 

SS@ IF XX = @ THEN XX = XX + 1: GOTO S35 

suo RETURN 

S6@ REM COMPUTER SELECT/IF NOT DONE 

S65 SL = I 

S75 IF SL > = g& THEN iad 

38@ GOSUE 1zaa 

S85 \VTAB 16: HTABR S: PRINT "I WILL SELECT 
A POSITION:” 

59a N= INT ¢ RND (1) ® (Lo ~ 1) + 1): 
GOSUB 1Lz4e 


S95 IF Lin) = @ GR LAN) = 1@@ THEN 59a 
6a@@ Fe = LCN: TF SLo= i THEN GOSUR 53a 
6a@5 Ce = FésNU = Ne GOSUR i3@@: GOSUB 12a 


VITAE 16: HTAER S: PRINT "SELECT A 
POSITION BY LETTER ONLY, "3 

VTAB 17: HTAER S: PRINT Q8(U) 

INPUT L$ 

GOSUER 124@: GOSUR izaa 
I= 1 

IF L$ = L#(I) THEN 665 
IT=I+i 

IF 1) = 31 THEN 675 

GOTO 635 
N = I:F% = L$: GOSUB 53a 

GOTO Baa 

REM COBRA POSITION OR BLANK 

GOSUR 1200 

GOSUB 120@ 

FOR T= 1705 

IF L& = C#{I) THEN 735 

NEXT 

VTAH 16: HTOH S: PRINT "YOU CANNOT 
SELECT A BLANK!!” 

GOSUR 124@: GOSUB 12a@@: GOTO 61a 
REM COBRA 

VTAB 16: HTAER S: PRINT "YOU'RE DEAD, 
MsQe(Udgurree 

VTAR 17: HTAR S: PRINT "THAT IS A 
COBRA POSITION!!!" 

VTAB 18: HTAER S: PRINT "** FAREWELL x” 
: GOSUR 124@ 
ZZ = i: GOSUB 12@@: GOTO 1220 

GOSUR 124@: GOSUR 1f@a: IF L& ¢ > CH 
THEN 9@@ 

VTAB 16: HTAE 5S: PRINT "CONGRATULATIONS 
"SOs (Us eae” 

VTAB 17: HTAB S: PRINT "YOU'VE JUST 
GAINED "3PZ;3 

PRINT "POINTS! !” 

GOSUER 124@: GOSUB 1Z0a 


REM PINTS/CONTINUE 
WL) = WU) + PZ 
VTABR PRO(NU): HTAB PC(NU): PRINT " "5 
VTAB 19: HTAB 2@: PRINT "TOTAL POINTS: 
"sWCU) 


GOSUR 1244: GOSUB lewd 

VTAER 16: HTAB &S: PRINT "YOU NOW HAVE 
"sWtU) 3" POINTS...” 

VTAB 17: HTAB S: PRINT "...CONTINUE 
C¥/ND "5 
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835 
862 
B65 
Dana 
3S 


Fie 


915 
Dew 


9eS 


93 
1aae 
1205 
imia 


1ais 
ime 


1425 
las 
1435 
1a4ia 
1245 
1aS@ 
1055 
1g6e 
1ia@ 
1185 
1114 
1115 
11z@ 
Liss 
113 
1135 
120 
121@ 


lesa 


12348 
1248 
Lesa 
1iZ6u 
1308 
1385 


450 


INPUT X$: IF X$ = "N" THEN 1@2a 
SL = SL + t:L (NU) = @:Le(NU) = " 

GOTO 575 

REM WRONG POSITION 

VTAE 16: HTAR S: PRINT “WRONG 
POSITION, “3G (UW) 

VTAER 17: HTAB S: PRINT “YOU ARE NOW 
MINUS "sPZs 

PRINT “ POINTS...": GOSUB 1242 

GOSUE 12@a:WiU) = Wu) — PBZ 

VTOH 19: HTAR 2a: PRINT “TOTAL POINTS: 
" sWCU) 

GOTO 61a 

REM FINAL/ANOTHER PLAYER 

GOSUE 124@: GOSUB i22a 

VTAR 16: HTAR S: PRINT “THAT’S IT, 
"SS (U) ge". YOUVE" 

VTAB 17: HTAR S: PRINT "REACHED THE 


VTAR 18: HTAB Ss: PRINT "PRESS RETURN, 
PLEASE:"s 
INPUT X$: HOME 
TF ZZ = i THEN ZZ = @: GOTO 1042 
Ti) = WtLD 
Us U + is IF A ¢ U THEN 110% 
PRINT O$(U) 3", YOU ARE NEXT..." 
PRINT "PRESS RETURN WHEN READY:"3 
INPUT X#s HOME 
GOSUB #25: GOTO sme 
REM FINAL/SCORE RESULTS 
PRINT "PLAYERS AND POINTS: " 
FOR IT = 170A 
PRINT GS{(1T)3" TOTAL POINTS: "sT(T) 
NEXT 
PRINT 
PRINT "PROGRAM TERMINATED..." 
END 
REM CLEAR PRINT AREA 


VTAB 16: HTAB S: FOR X = 1 TO 35: 
PRINT " "sg: NEXT 

VTAR 17: HTAR S: FOR X = 1 TO 3S: 
PRINT " "ss NEXT 

RETURN 


REM TIME DELAY 

FOR TI = 1 TO 12@@: NEXT 
RETURN 

REM FLASH SELECTION COURSE 
FOR I = 1 TO NU 


1310 
1315 
132@ 
1325 
133@ 
1335 


IF L#(I) = 
VTAB PR(T): 


"e" OR LECI)= 


HTAR PC(I): 


PRINT "*"; 


FOR TI = 1 TO i@: NEXT TI 


VTAB PRCT): 
NEXT 1 
RETURN 


HTAB PCI): 


PRINT L&(T); 


" THEN i33a 
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insomnia for the Apple I! 


1@ 
2a 


REM PROGRAM TITLE: INSOMNIA 

CLEAR =: HOME 

PRINT "INSOMNIA" 

PRINT 

PRINT "SO YOU ARE HAVING PROELEMS" 
PRINT "SLEEPING? JUST SIT BACK, KEEP” 
PRINT "YOUR EYES ON THE SCREEN AND" 
INPUT "PRESS RETURN: ":X%: HOME 


A= 20:W = a 


PRINT = HTAB A: PRINT "2"5 
HTAB A ~- ts PRINT "s"s: HTAR A + Ls 


PRINT "2"3 
I= INT ( RND (1) * 2 + 1) 
IF I = 1 THEN 168 
IF A> = 39 THEN 174 
A=A + @: GOTO 18a 
IF A ¢ = 14 THEN 15a 
AFA- 2 
W= W+ is IF W= 15 THEN 35a 
IF W = 7a THEN 214 
GOTO 1a 
IF W ¢ = 8@@ THEN 230 
GOTO 258 
PRINT 


W=W+ i: GOTO 214 


PRINT “GETTING SLEEPY NQW?" 

FOR I = 1 TO W: NEXT 

IF W ¢ = 814 THEN 29a 

GOTO saa 

PRINT :W= W + i: GOTO 27a 

FOR X = 1 TO 42 

VTAER i: HTAB X: PRINT "@": VTA ES: 
HTAR X: PRINT "@": NEXT 

FOR X = 1 70 #3 

VIBE X: HTAER i: PRINT "@": VTAE X: 
HTAE 4: PRINT "@": NEXT 

FOR I = 1 TO W: NEXT :W = @: GOTO 4aa 
VTAER i6: HTAR 2a 

PRINT "KEEP EYES HERE!” 

GOSUE Gaza 

GOTO 192 
L = S8:AR = 2:AC = 2:XR = 2e:XC = GsY 
= AR 

FOR T= AC TO AC +L 

VTOE AR: HTAE I: PRINT "x"; 


430 VTAE XR: HTAR I + 4: PRINT "#” 
442 NEXT : FOR I = AC TO AC +L 


45@ VTAR AR: HTAR I: PRINT " "q 

46@ VTAR XR: HTAB IT + 4: PRINT " "as NEXT 

47@€ AR = AR + 1:XR = XR - is IF BR = LE 
THEN [3d 


440 IF XR = Y THEN 5a 

490 GOTO 414 

sie IF W ¢ = S@ THEN Se 

Si@ GOSUB 62a: GOTO 61 

Se@Q W=W+ it TF W= 25 THEN GOSUBR 58a 

Sis GOTO 428 

oo@ IF W > i THEN 488 

S424 \VTAR ARs HTAB 14 

SS@ PRINT "STARE AT THIS LOCATION"; 

564 GOSUR 6a 

s7a@ GOTO 48a 

S60 AZ = AR - G: IF AR ¢ = @ THEN AR = 1 

5Q85 Al = AC + 25: IF Ai > = 4@ THEN Ai = 4 

39@ PRINT "NOW FOLLOW THE BARS": 

602 FOR I = 1 TO i@@a: NEXT : RETURN 

61@ HOME 

620 PRINT "IF YOU ARE NOT GETTING SLEEPY” 

63@ PRINT "BY NOW, YOU'RE A HOPELESS" 

640 PRINT "CASE!" 

65@ GOSUBR 6a: PRINT 

668 PRINT "THIS IS THE LAST BHASE OF” 

674 PRINT “INSOMNIA. IF IT FAILS, RUN" 

68@ PRINT "THE ENTIRE PROGRAM ONCE” 

692 PRINT "AGAIN..." 

7a@ GOSUE GW: PRINT 

71@ PRINT "KEEP YOUR EYES ON THE MOVING” 

72@ PRINT "BLOCK, THINKING TO YOURSELF” 

73@ PRINT "? I AM GETTING SLEEPY....7" 

74@ INPUT "PRESS RETURN: "3xX$:W = @ 

75a HOME :PC = PC + 3a 

76@ Y = 2e@: FOR X = 6 TO 9 

774 \VTAB X: HTAR Y: PRINT "@@": NEXT 

78a PR = X:PC = 2a 

79@ GOSUB liga 

Baa FOR X = 6 TO 9 

6i@ VTAB X: HTAB ¥: PRINT " ": NEXT 

Bea IF Z = 1 THEN 93a 

83@ FOR X = 6 TO 3 

B4@ VTAB Xs: HTAB Y: PRINT "@@":Y = Y ~— 1: 
NEXT 

65a GOSUB lied 

Bea PC = PC - 6 
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&7a@ GOSUB ilwe 


88a Y = 2G 

a9a@ FOR X = 6 TO 3 

92a VTAB X: HTAR Ys PRINT "  "sY¥ = ¥ - 
is NEXT 


91% GOSUR 11a 

928 Z = 1: GOTO 76a 

93% GOSUR 1120 

942 FOR X = 6 TO 9 

95% VTAR X: HTAH Y: PRINT "@@":¥ = Y + 1: 
NEXT 

96@ PC = PC + S: VTA PR: HTAR PC: PRINT 
W fae a] 

965 VTAR PR + i: HTAR PC: PRINT "ee" 

97@ Y = #@: FOR X = 6 709 

g8@ VTAR X: HTAR Y: PRINT" ™ 

992 Y= Y + i: NEXT 

1aa@ GOSUR 1120 


imi@W=W+ i 
iga@ IF W= 5 THEN 1as@ 
1a3@ TF Wo = B@ THEN 115 


1@44@ Z2 = @: GOTO 7ee 

1aS@ FOR X = 12 TO 27 

1m6@ VTAR 6: HTAB Xs PRINT "@": VTAR ie: 
HTAB Xs PRINT "@": NEXT 

1a7a@ FOR X = 6 TG ii 

1a8@ VTAH X: HTAR if: PRINT "“@": VTAB X: 
HTAB 27: PRINT "i": NEXT 

iwsa@ GOTO ise 

ii@@ VTAB PR: HTAR PC: PRINT “ee” 

11@5 VTAB PR + i: HTAR PC: PRINT "@B" 

111@ RETURN 

1ic@ VTAR PRs HTABR PC: PRINT " " 

1125 VTAR PR + i: HTAR PC: PRINT " ” 

113@ RETURN 

1i15@ REM END OF PROGRAM 

1155 VTAR 6: HTAB 2a: PRINT "ee" 

116@ GOTO 1i6a@ REM CONTINUGUS LOOP AT END 
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Rainy Daze for the Apple Il 


1a 
2@ 
3a 
44 


ea) 
62 
65 
7a 
8a 


9a 
1a@ 
lia 
le 
13@ 
14@ 
152 
162 
17@ 
18a 
19a 
Za 
£14 
rete 


23 


REM PROGRAM TITLE:RAINY DAZE 

HOME 

INPUT "INSTRUCTIONS? "3sAS 

INPUT "HOW MANY PLAYERS? "PP: IF P= @ 
THEN 4@ 

PRINT "THE ":Ps" PLAYERS’ INITIALS: "5 
IF P >} = 11 THEN 2a 

FOR I= 1 TOP 

INPUT N®(I)s NEXT 

IF AS ¢ > "¥" AND AS ( > "YES" 

THEN 342 

REM INSTRUCTIONS 

PRINT "THIS PROGRAM IS DESIGNED TO" 
PRINT "HELP YOU THROUGH YOUR WORST" 
PRINT "DAYS, BY MAKING THEM WORSE! !" 
PRINT "ACTUALLY, THIS PROGRAM WILL” 
PRINT "TEST YOUR ABILITY TO FOLLOW" 
PRINT "NUMBERS, SOMETIMES IN SEQUENCE. " 
PRINT "THE NUMERALS 1 THROUGH 664 WILL” 
PRINT "RACE ACROSS AND FILL THE VIDEG. ” 
PRINT "WHEN A NUMERAL APPEARS THAT IS” 
PRINT "NOT SUPPOSED TO BE THERE, HOLD” 
PRINT "THE RIGHT ARROW KEY FOR A SHORT" 
PRINT "TIME UNTIL THAT NUMERAL IS" 
PRINT "BLOCKED QUT.” 

PRINT 

PRINT 

INPUT "RETURN" 3 xX 

HOME 

PRINT "POINTS WILL BE GIVEN ON 

THE BASIS” 

PRINT "OF HOW MANY OUT-OF-SEQUENCE 
NUMERALS" 

PRINT "YOU HAVE DETECTED AT THE END OF” 
PRINT "THE COUNT, 662." 

PRINT "REMEMBER TO KEEP GOOD EYE CONTACT” 
PRINT “WITH THE SCREEN..."5: PRINT 
I=t 

IF P = 1 THEN 394 

PRINT N@(I)3", YOU WILL NOW PLAY:" 
INPUT "PRESS RETURN, PLEASE: "3X% 

GOTO 414 

PRINT "WHEN READY, "“3N$(P)3", PRESS” 
INPUT "THE RETURN KEY:"sX% 

HOME :N = @:Nl = @:TT = Saa 
AR = 1:AC = i:AB = ACIM = Sarl = 2:6 = @ 
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AK = PEEK ( - 16384) - 128: POKE ¢ - 


16368),@: GOTO SS 


VTAE AR: HTAR AC: PRINT N; 

FOR T = 1 TO TT + TT 

NEXT sAC = AC + 5 

IF AC > = M THEN 49a 

GOTO 434 
AR = L:AC = ABsL = Lo + i:TT = TT ~- 
15:6 = @ 

IF LL >) = 24 THEN Sea 

GOTO 43a 

FOR T = {1 TO i@@@: NEXT 

HOME 

GOTO 42a 

REM CHANGE OR LEAVE 

iF K = £i THEN NJ = 1: GOTG 698 
N= N + 1 
Nio= Ni + 1: IF Ni ¢ = & THEN 618 
J = INT ¢ RND (1) * 2): IF G = 1 THEN 
J = @:N = Ni 

Te J = 1 THEN N= N + 1:6 = 1 

IF kK = @ AND ABS (N - Ni) ¢ > @ THEN 
Yu Yori 

IF NJ = 1 THEN NJ = @: GOTO 648 
IF Ni > = 661 THEN 8a@ 

GOTO 44@ 
Ni = Ni + 1 


TF AC - &S ¢ = @ THEN VTAB AR - 1: 
HTAR 4@ ~- AC - 13: PRINT "@B@@G";: GOTO 
VTAB AR: HTAR AC - S: PRINT "GEBRE" ; 
REM PAUSE BEFORE CONT. 

FOR T = 1 TO Sa: NEXT sK = @ 

GOTO 448 


IF ABS (N ~ Ni) = @ THEN 714 
Yu Yr is GOTO 7ee 
YezYrii 

GOSUBR 97@:Al = PEEK (P11 + (AC - 8)) 
AZ = PEEK (Pi + (AC - 9)) 


IF Al = 192 AND AE = 192 THEN 76a 
GOTO 622 

HOME sY¥ = ¥Y¥ +e 

PRINT "GUIT HOLDING DOWN THE ARROW" 
PRINT "KEY, YOU MANTAC!!!" 

FOR T = 1 TO ie@a: NEXT = HOME =: GOTG 
62a 


REM PLAYER ADVANCE 
YY(1) = YrY = @: HOME 
I=iI+i 


83 
84a 
852 
BEG 
87 
Baa 
834 
Dae 


Sia 
92a 
93a 
948 
95a 
368 
972 


38a 
39a 


laa 


IF I > P THEN Ni = Ni ~ 1: GOTO 45a 
GOTO 368 

REM FINAL 

PRINT "PLAYERS AND THEIR POINTS" 
PRINT "ARE AS FOLLOWS:" 

FOR I= 1 TOP 

PRINT N@(I)3" IDENTIFIED ": 

IF ¥YY(T) = @ THEN PRINT "ALL 
NUMERALS. ": GOTO 93a 

IF Y¥(I) ¢ @ THEN YY(I) = — YY(T) 
PRINT Ni - YY{1I)s" NUMERALS. " 

NEXT 

PRINT 

PRINT "END OF PROGRAM" 

END 


IF AR > 1 AND AR (¢ = & THEN Pi = AR 


* 128 + 896 
IF AR > = 39 AND AR ¢ = 16 THEN Pi 
= (AR - 8) * 128 + 936 


IF AR > = 17 AND AR ( = #4 THEN Pi 


= (AR - 16) * 128 + 976 
RETURN 
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Lap-the-Track for the Apple il 


1a 
2a 
3a 
4a 
oa 
Ba 


7a 


REM PROGRAM TITLE: LAP THE TRACK 
CLEAR =: HOME 
HTAR 1@: PRINT "~i-2 LAP-THE-TRACK 


PRINT = DIM A8(15),AC15),LACIS), T(15) 
INPUT "“INSTRUCTONS?" ;A% 

IF AS ¢ > "Y" AND AS ¢ > "YES" THEN 
Sd 

PRINT "UP TO FIFTEEN PEOPLE BET ON 
FOUR MOVING" 

PRINT “SPOTS THAT ARE IN A FAST RACE” 
PRINT "TO THE FINISH. A COMPLETE RACE" 
PRINT : IF CH = 1 THEN 96@ 

PRINT "WILL BE ABLE TO CHOOSE A LANE 
(1-4) " 

PRINT "AND MAKE A BET OF ANY DESIRED" 
PRINT "AMOUNT ON THAT LANE. IF THERE” 
PRINT "ARE NO WINNERS, THE COMPUTER 
WILL” 

PRINT "PLACE 
ITS CHOICE" 
PRINT "IN THE NEXT RACE. IF THE" 
PRINT "COMPUTER? S SPOT HAPPENS TO WIN" 
PRINT “IT WILL NOT TAKE THE MONEY;” 


PRINT "IT WILL JUST BET ON ANOTHER 
LANE. " 


PRINT "SO, NO MATTER HOW YOU SLICE IT," 
PRINT "SGMEQNE IS BOUND TO WIN. (YOU 
CAN USE" 

PRINT "REAL MONEY IN THIS GAME IF YOU 
WISH. )” 

PRINT 

PRINT 

INPUT "HOW MANY WILL PLAY? "3E 

IF BH ¢ 1 0R & > 1@ THEN 32a 

PRINT "INITIALS, PLEASE: "; 

FOR I = 170 # 

INPUT AS(I): NEXT 

PRINT 

PRINT "YOU WILL NOW SELECT A LANE.” 
Tei 

PRINT AS(1) 3": LANE NUMBER"; 

INPUT LACT) 

IF LA(I) ¢ 1 OR LA(I) > 4 THEN 39a 
PRINT "BET WHAT AMOUNT?"; 

INPUT BCT) 


I=.+i 

IF I >) B THEN 48a 

PRINT 

GOTO 39@ 

HOME : GOSUE 13@a: IF ZZ = 1 THEN Sia 
PRINT "IF MORE THAN ONE PLAYER WINS" 
PRINT "(SELECTION OF SAME LANE), ALL 
MONEY" 

PRINT “WILL BE DIVIDED AS EQUALLY AS 
POSSIBLE. " 

PRINT : IF CH = 1 THEN 9362 

GOSUBR 124@: GOSUR 1300: GOSUB 141 
FOR TU = 1 TO Bada: NEXT +: HOME 


PRINT "PRESS RETURN TO START THE RACE:” 


INPUT AS: HOME : GR 

REM OUTER TRACK 

COLOR= 8: FOR I = @ TO 3@ STEP ia 
HLIN @,39 AT I 

HLIN @,39 AT I + 6 

VLIN I,1 + 6 AT @ 

VLIN I,1 + 6 AT 39 

NEXT 

REM SPOT LOCATIONS 

GOSUB 12@@:L = 1:IR = 4:1C = i 

LR(L) = IR#LC(L) = IC:RR(L) = IR:RO(L) 
= IC:PR(L) = IR - S:PC(L) = IC + 3@sL 
P(L) = @ 

PR(1) = 21:PR(Z) = PR(1)=PR(3) = 
Z2:PR(4) = PR(3):PC(1) = 16:PC(2) = 
36:PC(3 ) = PC(i)sPC(4) = PCC) 

IR = IR+ i@: IF L) = 4 THEN 68a 
L=L + 1: GOTO 65a 

FOR I = i TO 4 

COLOR= 3 * I: PLOT LC(I),LR(I): NEXT 
REM START A RACE 
LP = @:PK = LR(1) + 4 


I= INT ¢ RND (1) * 4 + 1)eM = ABS 
{I - &) 
COLOR= @: IF LO(I) >) = 34 THEN GOTO 
Lai 
PLOT LOCI), LRT) 
IF ABS (LC(I) - RO(I)) >} = 29 THEN 
1aad 
LOCI) = LOCI) + INT ¢ RND (1) #* 1M + 4) 
COLOR= 3 * ITs IF LO¢I) } = 34 THEN 
GOTO 1@ad 
PLOT LOCI), LR¢D) 
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77a 


78a 
79M 


795 
Bai 


Bla 


815 
Bia 
84a 
BS 
84a 


B45 
Bsa 
B64 

865 
87a 


8a 
B9@ 


895 
92a 


91a 


915 
92a 


925 
93a 
94@ 


945 
95a 
96a 


965 
37@ 
98a 
985 
99a 
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IF m+i1 ¢ ) 1 AND M+ i ¢ > 5S THEN 
73a 
SOTO Baza 
COLOR= @: IF LC(M +4) > = 34 THEN 
GOTO ifMe 
PLOT LCO(M + 1),LR(M + 1) 
LO(M + 1) = LO(M + 1) * INT ¢ RND 
(1) * 4 + 1) 
COLOR= 3 * (M+ 1): IF LO(M +1) > & 
34 THEN GOTO 1aaa 
GOSUBR 2i@@: PLOT LO(M + 1),LRiM + 4) 
IF mM- 1 ¢ ) IT ANDM- 2 ¢ > @ THEN 


GOTO 87a 

COLOR= @: IF LO(M - 1) > = 34 THEN 

GOTO iaaea 

PLOT LOM - 1),LR(M - 1) 

LO(M - 1) = LOCM - 1) + INT ¢ RND 
(1) *# 4+ 1) 

COLOR= (M —- 1) * 3: IF LOCM ~- 1) > 
= 34 THEN GOTO 1@@@ 


GOSUR fi6bis PLOT LOCH - 1),iLRihM - 1) 
< 


IF M+ e > S53 AND M+ &@ ¢€ > & THEN 
B9@i 

GOTO 7ee 

COLOR= @: ITF LO(M + 2) > = 34 THEN 
GOTO 1aae@ 


PLOT LO(M + 2), LRM + &) 
LO(M + #2) = LOCM + 2) + INT ¢( RND (1) 
#4 + 1) 
COLGR= (M + #2) * 3: IF LO(M + &) > 
= 35 THEN GOTO 1aa@ 
GOSUB Siea@: PLOT LO(M + £),LR(M + =) 
COLOR= @: IF LO(M) > = 34 THEN GOTO 
1a 
PLOT LOH), LRG) 
LOM) = LOC) + INT ¢€ RND (1) *# 4 + 2) 


COLOR= M * 3: IF LO(M) >) = 34 THEN 
GOTO 1aaa 

GOSUB 2280: PLOT LO(M),LR(M) 

GOTO 72a 


CH = @: TEXT =: HOME +: PRINT "THE 
COMPUTER WILL PLACE THE AMOUNT OF "3s 
PRINT "S$" 3AM; 

RF = INT ¢( RND (1) # 4 + 1) 

PRINT "ON LANE "sRF3", " 
MNCRF) = MNCRF) + AM:FAM = @ 

GOTO Sia 


iaae 


1@@3 
1@ia@ 
liga 


1a3a 
1a4a 
12@@ 


1320 
133m 
134@ 
135@ 
1360 
1372 
138@ 
139 
1402 
1410 
142@ 
1430 
144@ 
145a 


1453 
14355 
14628 
147@ 
L502 
isla 
1515 


COLOR= @: IF LOCI) >) = 34 THEN 
LOI) = 38 
PLOT LCO(I), LR¢T) 
LC(I) = ROT) 
LP(I) = LP(I) + 1s VTAR PR(I): HTAB 
PC(I): PRINT LP(I) 
IF LP(I) > = 1@ THEN 15a@ 
GOTO 7za 
VTAB @i: HTAB 1: PRINT "LAPS —- LANE 
Las 
VTAB 21: HTAR 2@: PRINT "LAPS — 
LANE 2:2" 
VTAB Ge: HTAB 1: PRINT "LAPS - LANE 
ois 
VTAR fe: HTAR 2@: PRINT "LAPS — LANE 
ils 
RETURN 
REM AMOUNTS BET PER LANE 
VTABR 21: HTAR 1: PRINT "LANE i..... a 
VTABR @1: HTAB 2@: PRINT "LANE &....."5 
VTAR 22: HTAR i: PRINT "LANE 3....."4 
VTAR #2: HTAR 2a: PRINT "LANE 4..... a 
RETURN 
REM AMOUNTS ON LANES 
Tei 
FOR I = 1 TO8 
IF LACI) = T THEN 13508 
NEXT I: GOTO 1378 
MN(T) = MN(T) + BCI) / & 
GOTO 134@ 
T= T+i 
IF T >} = 5 THEN 1404 
GOTO ise 
RETURN 
REM PRINT AMOUNTS 
AAS = "gH" 
T= i:sFi = @isFe = 13 
VTAB Fl: HTAB Feo: PRINT AASsMN(T) 
T= 2] + 1: IF I = @ THEN Fl = @1:F2 
= 33 
IF I = 3 THEN Fil = S2:F2 = 13 
IF I = 4 THEN Fil = fe:Fe = 33 
IF I>} = & THEN RETURN 
GOTO 1448 
REM FINISH 
WWo= 1 
FOR TU = 1 TO 15@@: NEXT 
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17za 
1725 
173a 


174@ 
175@ 
1769 


1798 
1798 
18a 
18ia 
1822 
183@ 


185@ 
18628 
187 
188@ 
1898 
1914 
193 
194@ 
aa 
ea1a 
red fea 
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TEXT s HOME + VTAR 3: HTAB 15: PRINT 


"WINNER" 3 

FOR TU = 1 TO laa 

NEXT 

VTAB 3s HTAB iS: PRINT " "9 


TIF WW) = 6 THEN 1588 
WW = WW+ 1: GOTO i520 

REM PLAYER LANE SELECT 
WW = @ 

FOR T= 1 TO 8B 

IF LACT) = I THEN 1634 

NEXT s GOTO 165@ 
WWwo= WWo+ 1eT(WW) = T 

GOTO 1620 

FOR I = 1 TO 4:AM = AM + WIN(T) eMN(T) 


NEXT : IF WW = @ THEN 1760 

VTAB 3: HTAB iS: PRINT "WINNER(S) 3"3 
Wl = 4:We = 15 

FOR I = 1 TOG WW 

VTAR Wis HTAB We: PRINT AS¢(TET)): 

IF WHo> 1 THEN PRINT ", "3 
We = We + 3: NEXT 

IF WW= 1 THEN 1792 

VTAB 17: HTAB i@: PRINT "EACH WINNER 
RECEIVES: "3 

VTAB 17: HTAB 3@: PRINT AASSAM / WWs 
AM = @: GOTO 1828 

VTAR 3: HTAB 15: PRINT "## NO WINNERS 
GOTG 187@ 

VTABR 17: HTAR 1@: PRINT 3 
PRINT "YOU WILL RECEIVE:" 
GOTO 174@ 

REM ANOTHER 

VTAR 14: HTAB 153 INPUT "“SANOTHER 
RACE (Y/N) ?" 3A 

IF AS = "N" THEN ae 

HOME :ZZ = 1: GOTO 36% 

FOR TU = 1 TO 1l&@a: NEXT 

VTAB 19: HTAE 1 

PRINT "IF ANOTHER RACE IS HELD, THE" 
PRINT "COMPUTER WILL BET THE MONEY" 
PRINT "ON @ LANE IT SELECTS. " 
CR = i: GOTO 182e 

REM END 

HOME 

PRINT "FAREWELL ? TILL NEXT RACE, " 


8 
s 
8 
? 


2@3@ END 
#1@@ POKE 769,13 
Z1i1@ POKE 77a, 3a 
#120 POKE 768, 1 
213% CALL 771 
2#14@ RETURN 

216@ POKE 769,6 
217@ POKE 772,8 
Z#18@ POKE 768, 1 
219@ CALL 771 
#195 RETURN 

2220 POKE 769, 22 
223@ POKE 770, 4 
224@ POKE 768, 1 
225@ CALL 771 
#260 RETURN 

#280 POKE 765,93 
2290 POKE 772, 5 
2300 POKE 768, 1 
31a CALL 771 
2320 RETURN 


] 
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injection for the Apple [I 


1a 
2a 
3 
40 


REM PROGRAM TITLE: INJECTION 


CLEAR 

PRINT CHR (4); "BLOADSOUND" 
HOME 

HTAB 15: PRINT "> INJECTION <” 
PRINT 


INPUT "NUMBER TO PLAY (1-1@)"3U 

IF U ¢ 1 OR U > 1@ THEN 7@ 

PRINT "THE INITIALS GF THE PLAYERS: " 
FOR I = 1 TO Us INPUT K@(T) 

NEXT =: PRINT =PL = 1 

PRINT "YOU ARE HEAD OF A LABRGRATORY” 
PRINT "IN WHICH YOUR COMPANY IS IN THE" 
PRINT "PROCESS OF INJECTING CUBES WITH" 
PRINT "A SOLVENT, TO DESTROY A COLONY" 
PRINT "OF BACTERIA WHICH CANNOT HE” 
PRINT "CONTROLLED. THESE CUBES WILL" 


PRINT "RACE ACROSS THE SCREEN S AT A" 
ORINT "TIME, TO INJECT & CUBE, HOLD" 


Poyy hee wt ee Tee hat aot foe ay ee Le 


PRINT "THE SPACE BAR. THE INJECTED" 
PRINT "SOLVENT MUST DIRECTLY STRIKE 
THE" 

PRINT "“QPENING AT THE BOTTOM OF THE 
CUBES. " 

PRINT 

PRINT 

INPUT "PRESS RETURN TO CONTINUE: "sls 
PRINT "EACH TIME A CURE IS INJECTED," 
PRINT "THE NUMBER RACING ACROSS THE 
SCREEN" 

PRINT "WILL DECREASE BY ONE, BUT" 
PRINT "NO FEWER THAN THREE WILL RACE" 
PRINT "ACROSS AT ANY ONE TIME. A 
TOTAL" 

PRINT "OF TEN CURES MUST BE INJECTED" 
PRINT "WITH THE SOLVENT. IF YOU MISS 
AN" 

PRINT "INJECTION, THE NUMBER OF CUBES 
WILL” 

PRINT "INCREASE BY ONE. THE INJECTION" 
PRINT "MACHINE CAN BE MOVED LEFT OR 
RIGHT” 

PRINT “WITH THE LEFT OR RIGHT ARROW 
KEYS." 

PRINT "GOOD LUCK!" 

PRINT 


4@@ INPUT "PRESS RETURN TO CONTINUE: ";L¢ 

4035 GR 

41@ HOME :JN = @:T = 1:IN = 1@:£ = @:cy = 
3: GOSUR 6aa@ 

42@ REM THE CUBES 

43@ X = SrM = XeJ = @:JJ = @: COLOR= 11 

44@ COLOR= i1: HLIN X,(X + 4) AT & 

4S@ HLIN X,(X + 4) AT & 

455 HLIN X,(X + 4) AT 4 

46@ COLOR= @: PLOT (X + 2),4 

47@ X =X + 6:J = J+ i 

475 GOSUB 16@a 

48@ IF JJ = 1 THEN Sea 

49@ IF J > = CV THEN Sia 

sa@ GOTO 4424 

si@ COLOR= @: REM BLANK OUT 

sea HLIN M, (M + 4) AT & 

S3@ HLIN M,(M + 4) AT & 

S35 HLIN M, (M + 4) AT 4 

344 M = M + 6 

So@ REM RECYCLE 


S62 IF X >) = 33 THEN X = 3:JJ = 1: GOTO 
SGei 
S7@ IF M)> = 33 THEN 43a 


5a GOTO 72a 

602 COLOR= 12: REM BORDER/INJECTOR 

61@ FOR X = @ TO 39: PLOT x,a@ 

62@ PLOT X,38: PLOT X,39: NEXT 

63@ FOR X = 1 70 39 

642 PLOT @,X: PLOT 1,X 

65@ PLOT 38,X: PLOT 39,X: NEXT 

66@ COLOR= 14: HLIN P,39 AT 15 

67@ QC = 2:0R = 14:CA = a 

68@ PLOT ac,ar 

69@ VTAR 21: HTAR 1: PRINT "CUBES 
REMAINING ": 

7@@ VTAB 21: HTAB &3: PRINT “CUBES ADDED ”; 

71@ VTAR ZZ: PRINT K#(PL) 3: RETURN 

7#@ REM INJECTION/INJECTOR MOVE 

73@ IF R = 32 THEN 79a 

742 R= PEEK ( — 16384) - 128: POKE ¢ - 


16368) ,@ 
75@ IF R = 32 THEN 79@ 
760 IF R = 8 THEN 9@a 
77@ IF R = @it THEN 96a 


78@ GOTO 444 
73@ IF JN = 1 THEN 81@ 
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QQ = OC:JIN = i:Q1 = GR 

IF GR ¢( = 4 THEN V = 1: GOTO 86a 
COLOR= @: PLOT @C,OR 
QR = GR - iis COLOR= 14: PLOT OC,QR 
GOSUB 17a 

TF SCRNC( (QC + 1),QR) 
GOTO 44@ 

IF SCRN( (QC ~- 1),GR) = 11 THEN 1@2@ 
GOTO 448 

COLOR= @: GOSUB 19a 

PLOT QC, QR 
QC = OO + E:QQ = @:E = @:0R = G1 
COLOR= 14: PLOT QC,QR: IF V = 1 THEN 
GOSUB 114@ 
R= @:JN = @: GOTO 444 


tl 


11 THEN 845 


REM TO LEFT 

IF OC ¢ = 3 THEN 44@ 
COLOR= @: PLOT GC,QR 
ac = @C - T 

COLOR= 14: GOSUE ieaa 
PLOT QC, OR 

GOTO 442 

REM TO RIGHT 

IF QC >) = 35 THEN 44a 
COLOR= @: PLOT OC,QR 
ac = Ob + T 


COLOR= 14: GOSUE 18aa 
PLOT QC, OR 

GOTO 442 

IF SCRN( QC, (QR - 1)) 
GOTO 44a 

IF SCRN( (QC - 2),QR) 
GOTO 44a 

IF SCRN( (QC + 2), QR) 
GOTO 44a 

REM INJECTED 
TeT+i:tvecv-1 
IF T) = 5 THEN T = 1 
IF CV ( = @ THEN CV = 
IN = IN - 1: VTAB 21: HTAH 18: PRINT " 
"se: HTAB 18: PRINT IN; 

IF IN ( = @ THEN i125 


ii 


11 THEN igs 


11 THEN 1445 


11 THEN 1@6¢ 


ii 


E = INT (5 # RND (1) + 1): IF E + QQ > 
= 37 THEN E = - %INT (5 * RND1) + 1) 
GOTO 86a 


REM CUBE ADDED/INJECTION MISSED 
IN = IN + 1 


116@ CA = CA +1 

1165 IF CA = 25 

i170 7 = T= 4 

118@ IF T < = @ THEN T=1 

1190 VTAB 21: HTAB 18: PRINT IN; 

12@@ VTABR 21: HTAB 36: PRINT CA: 

121@ RETURN 

125@ REM PLAYER ADVANCE 

1260 W(PL) = CA:PL = PL +1 

127@ IF PL) U THEN 131 

128Q VTAR 22: PRINT "STANDBY "sK$(PL) 3"... 

1290 FOR YY = 1 TO 150: NEXT 

13a@ R = @: GOTO 410 

i31@ FOR YY = 1 TO 9@@: NEXT : TEXT : HOME 

132@ PRINT "ALL PLAYERS HAVE HAD THEIR" 

i33@ PRINT "TURNS AT THE INJECTION 
MACHINE, " 

1340 PRINT "SCORES ARE BASED ON THE NUMBER 


135@ PRINT "OF CUBES WHICH WERE ADDED 
DURING" 

136@ PRINT "THE INJECTION PROCESS. ” 

1378 PRINT +: FOR I = 1 TOU 

138@ PRINT "INJECTOR: "sK#(1) 

139@ PRINT "HAD "3W(T);" CUBES ADDED. " 

140% PRINT "FINAL SCORE EVALUATION: ": 

141@ W = WI) 


2V = @ 
THEN GOTO 12504 


‘ns 
= 
5 

2 


142@ IF W> = @AND W (¢ = & THEN 1478 
143@ IF W> = S AND W ¢( = 1@ THEN 1484 


144@ IF W > 1@ AND W ¢ = 2@ THEN 1494 
145@ PRINT "TOO BAD TO MENTION!"; 

146@ GOTO 15a 

147@ PRINT "EXCELLENT! ": GOTO 15a@ 

148@ PRINT "FAIR. ": GOTO 15a 

149@ PRINT "POOR. ": GOTO 15a 

15@@ FOR YY = 1 TO le@a: NEXT Y¥: PRINT 
151@ NEXT I 

152@ PRINT 

153@ PRINT "END OF INJECTION” 

1544 END 

16@@ POKE 769,23 

161@ POKE 774,28 

i6e@ POKE 768,2 

163@ CALL 771 

164@ RETURN 

17@@ POKE 769,112 

171@ POKE 77€@,6 
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172@ 
173@ 
1748 
18@@ 
1818 
183 
184a 
185@ 
19a@ 
1910 
192@ 
193@ 
194@ 
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POKE 768, 1 
CALL 771 
RETURN 

POKE 769, 25 
POKE 774, 25 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769, 132 
POKE 77@, 6 
POKE 768, 1 
CALL 771 
RETURN 


Appendix C 


Making the Programs 
Work on Your Own Computer 


Both the IBM and TRS-80 computers use MicroSoft BASIC, which 
means that they use similar syntax. However, you will find some 
differences as you program. Here are the most common problems 
you'll encounter in this book as you enter the programs which didn’t 
come with special versions for the IBM or Apple. 

CHRS. If a program asks for a character with an ASCII code 
smaller than 32 and larger than 90, it’s probably some kind of special 
character limited to your computer. The computer industry hasn't 
bothered to standardize these numbers. TRS-80 ASCII codes be- 
tween 129 and 191 are special graphics characters, and they’re used 
to make things look interesting. Just substitute something your 
computer has that looks interesting to you! Check your basic man- 
ual for ideas. (My favorite IBM character is CHR$(2), a smiley face 

we) 

CLEAR. This command just gets rid of all the ‘‘garbage” your 
computer has left lying around in its memory from other programs 
you've run. Don’t bother to put a number after it unless your own 
basic manual suggests it—at least, not for any programs without 
machine language routines or a lot of high resolution graphics. 

CLS. Apple users, use HOME! 

DELAYS. Well, what did you buy IBM for if not for speed? But 
you'll have to almost double any time delay routines, such as 
for-next loops, unless you're twice as quick on the draw as the 
average computer owner. 
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ELSE. This very useful function is available to IBM users, but 
not to Apple lovers. Whenever you see a line in one of the original 
programs with an else statement, if the program is to run on an 
Apple II, you must create another line immediately following it to 
hold anything that follows the word else. Then you must make the 
original line skip that new line so that it makes it to where it was 
going in the first place. Did I lose you back at the pass? It works like 
this: 

Original lines: 20if A=10 THEN A=17 ELSE A=A+1:GOTO 10 
30 Z=INT(RND(D+A-+1) 

New lines: 20 IF A=10 THEN A=17:GOTO 30 
25 A=A+1:GOTO 10 
30 Z=INT(RND(1)#A +1) 

I hope you understood that, because that’s all the explanation 
you are going to get. 

INKEY§. This is another command Apple users must do 
without. It lets you monitor the keyboard directly without having to 
press the enter key. However, Apple users can peek and poke their 
way toa similar result. Instead of, for example, X$S=INKEY$, you'll 
need to use X=PEEK(— 16384 ) - 128. X will be the ASCII code of 
whatever was input. Be sure to reset this memory location, though, 
or your program will think you've been holding down the REPT key. 
You do this by following your peek statement by POKE — 16368 , 
0. 


PRINT@. See SCREEN FORMATTING 

PRINT USING. This is another of those useful commands 
your Apple doesn’t understand. This command allows you to format 
a number so that something going in looking like 987654321 can 
come out looking like $9, 876,543.21. The print using statement will 
have a string of characters such as $$#####,.##, which works 
the conversion from chaos to order. Apple users will have to figure 
out what the number is supposed to look like from context and use 
regular print statements to approximate the TRS-80 results. 

RND. TRS-80 BASIC accepts the statement RND(n) to pro- 
duce a random number between n and 0. If you want the bottom 
value to be higher than zero, you must add a second statement such 
as “IF W<=10 THEN...” and go back to the RND statement until 
you get the value you want. A randomize statement in the early lines 
of the program will reset the random number generator so that it 
gives different values each time the program is run, otherwise the 
game may be too predictable. 
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Some BASICS, such as those used by IBM and Apple, can use a 
formula to produce random numbers within desired limits all in one 
step. Using the variable name A to represent the higher number and 
B for the lower, use this formula: X= INT(RND#(A—B)-+B. Sup- 
pose you need random numbers between ten and twenty. 20- 
10=10, so X= INT(RND+10+10). 

To ensure that the random number generator gives a different 
value each time the game is started, add the subscript (1) to RND on 
the Apple: X= INT(RND(1)*10+10). The IBM will require you to 
use the command Randomize n, where n is a number that can be 
input from the keyboard or be given a value by the program. See 
how it’s done in the special IBM and Apple versions if you aren’t 
sure how to write it into a program. 

STRINGS. I won't even say it... Do I hear the patter of little 
feet running out to trade in that Apple? No need! Think of all the 
terrific software you can get for it, and use a for-next loop. 

STRING$ allows the computer to use one print statement to do 
a repetitive task, such as making a row of stars along the top and 
bottom of the screen. If the statement says PRINT STRING$ 
(40,42), it’s telling the computer to print a line of forty characters 
with the ASCII code of 42, which is an asterisk. You can replace that 
statement with something like: FOR X=1 TO 40:PRINT 
“> |NEXT. Don’t forget the semicolon after the “*”, or they'll all 
come out on different lines. (You already knew that, didn’t you?) 


SCREEN FORMATTING 


The TRS-80 Model HI Computer for which the programs in this 
book were originally written supports a screen display sixty-four 
characters wide and sixteen rows deep. The IBM, by contrast, 
offers a choice of either forty or eighty columns in width, with 24 
rows. This means that programs which don’t require any special 
formatting (i.e., graphics of some kind) can be used on the 80 width 
screen without changes. They may look a little lopsided, but that 
doesn’t bother most people. 

Most Apple computers have only a forty character screen. If 
you have an Apple or other narrow screen computer (or choose to 
use the 40 width screen on an IBM) or are entering a program which 
requires that the text be located on the screen in a precise manner, 
you will need to reformat. 

First, decide what the program ‘‘wants”. If the sample printout 
is all text, it probably doesn’t matter how wide the lines are. If 
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they're too wide, they’ll wrap around. If you fill the screen too soon 
and part of the text scrolls off, insert or move a pause routine (a 
for-next loop) or stop it with an input statement. 

You have more screen lines, so you may want to center the text 
or graphics image by adding a few blank lines at the top; or you can 
block text at the bottom in rows 17-23 (don’t use line 24 unless you 
want a scrolling effect) to simplify a graphics image in the first 
sixteen rows. 

Most of the complicated reformatting has been done for you in 
the separate program listings in Appendices A and B; however, if 
you aren’t sure how to format the remaining programs, use the 
following guides. 

The most common TRS-80 screen formatting statement is 
PRINT @ . PRINT @locations start at the top left corner of the 
screen with PRINT @0, and work their way up one by one as they 
move across the screen to the right. The rightmost corner of the top 
line is PRINT @ 63. after which the count continues on the next row, 
starting again at the left. If you can’t visualize this, look at the chart 
ot PRIN‘T @locations in Appendix D. 

A screen location directly above or below another can be 
pinpointed by subtracting 64 from the original PRINT @ location or 
adding 64 to it. If you want to convert the number into row and 
column figures you can use on the Apple (VTAB and HTAB loca- 
tions) and the IBM (LOCATE statements), divide the PRINT 
@ value by 64 and add one to the answer to obtain a row, and add one 
to the remainder to get the column. Or look at the chart—after all, 
you paid for it. 

TRS-80 also supports TAB(n) statements which are just like 
IBM’s, and are the equivalent of Apple HTAB. However, whether 
you are looking at a PRINT @ location or a tab statement, if you are 
using a 40 character screen you will need to make sure your column 
values stay on the screen. Remember that 40 is approximately 
two-thirds of 64; reducing the column values by one-third and 
experimenting will probably get the desired result. If the program 
line wraps around and you don’t want it to, either shorten it, or move 
the starting column position to the left. 

TRS-80 also has a function called set, which lights up one pixel, 
or little light dot, on the screen. The locations are described in the 
same way Apple users describe plot locations, or IBM owners 
access PSET: SET X,Y means go over X and down Y and light up 
the screen there. Reset does just the opposite: it turns off a lighted 
pixel at the specified location. 
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However, since set and reset address pixels and plot addresses 
a block, you'll need to cut all X axis values (counting across the 
screen) by 2/3, and the Y values (counting down the screen) in half. 
You'll want to experiment a little. If the program says SET 127,30 
followed by SET 100,30, the first dot will be at the right-hand edge 
of the screen, eleven rows down ; and the second, while at the same 
level, will be about a fourth of the way toward the left side of the 
screen. The PRINT @ chart includes set information. 

IBM users also have the option of converting set locations into 
locate statements, but they must remember to reverse the order of 
the axes, since locate statements give the row first, and then the 
column. 


SCREEN GRAPHICS 


Now the Apple users can watch the IBM users squirm for a 
minute. If you have an IBM PC with a monochrome monitor, it 
probably doesn’t have a color/graphics card. This means that two of 
the special versions for IBM, Knights and Intercept, won’t work on 
your screen. You will need to combine the information you learned 
in the section on screen formatting with the adapted versions to turn 
the screen graphics commands into text screen commands your 
system can display. Use your BASIC manual for a reference. 

Also, almost all of the IBM programs use color, even when in 
the text screen. (This is because there are so many colors on the 
text screen !) If you have a graphics card anda ‘‘green screen” (not 
as crazy as it might sound), change all of the color statements to read 
COLOR 7,0,0. This will give you bright characters on a dark 
background. Or, even simpler, just don’t type in any color state- 
ments at all. 


SOUND EFFECTS 

You can use the Apple sound routine for any programs in the 
book, whether they are written with sound or not. Look at the 
special Apple versions and see how the routine is loaded and called 
by the programs; then try your own. Many BASICS support sound 
statements. You'll see some of these in the IBM programs, which 
use the special musical abilities IBM comes with. Use these exam- 
ples and those given in your BASIC manual to see what you can 
come up with for the programs you think are too quiet. 


VARIABLE LENGTH 
The world of computers is a world of trade-offs. Apple users 
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can name their programs anything they like, including multiple word 
titles; IBM users are stuck with eight letters and a suffix. But IBM 
users can name their variables anything they like, as long as it 
doesn’t have spaces. You can expand variable names to make the 
program more meaningful if you want. Apple users, better stick to 
those two-letter names the programs come with. 

And now, happy hacking! 
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Appendix D 
Screen Locations 


TRS-80 SCREEN LOCATIONS 


LEFT EDGE 


1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 1 :PRINT@ 0 
SET O , 0 


PRINT@ 15 PRINT@ 31 PRINT@ 47 PRINT@ 63 
SET 31 , 0 SET 63 , 0 SET 95 , 0 SET 127 , 0 


ROW 2 :PRINT@ 64 
SET O , 3 


PRINT@ 79 PRINT@ 95 PRINT@ 111 PRINT@ 127 
SET 31 , 3 SET 63 , 3 SET 95 , 3 SET 127 , 3 


ROW 3 :PRINT@ 128 
SET 0 , 6 


PRINT@ 143 PRINT@ 159 PRINT@ 175 PRINT@ 191 
SET 31 , 6 SET 63 , 6 SET 95 , 6 SET 127 , 6 


ROW 4 :PRINT@ 192 
SETO , 9 


ROW 5 :PRINT@ 256 
SET 0 , 12 


PRINT@ 207 PRINT@ 223 PRINT@ 239 PRINT@ 255 
SET 31 , 9 SET 63 , 9 SET 95 , 9 SET 127, 9 


PRINT@ 271 PRINT@ 287 PRINT@ 303 PRINT@ 319 
SET 31 , 12 SET 63 , 12 SET 95 , 12 SET 127 , 12 


ROW 6 :PRINT@ 320 
SET O , 15 


ROW 7 :PRINT@ 384 
SET 0, 18 


PRINT@ 335 PRINT@ 351 PRINT@ 367 PRINT@ 383 
SET 31 , 15 SET 63 , 15 SET 95 , 15 SET 127 , 15 


PRINT@ 399 PRINT@ 415 PRINT@ 431 PRINT@ 447 
SET 31 , 18 SET 63 , 18 SET 95 , 18 SET 127 , 18 


ett a tee ett Ate het e 


ROW 8 :PRINT@ 448 
SET 0, 21 


PRINT@ 463 PRINT@ 479 PRINT@ 495 PRINT@ 511 
SET 31 , 21 SET 63 , 21 SET 95 , 21 SET 127 , 21 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 9 :PRINT@ 512 PRINT@ 527 PRINT@ 543 PRINT@ 559 PRINT@ 575 

SET 0 , 24 SET 31, 24 SET 63, 24 SBT 95, 24 SET 127 , 24 
Row 10 : 

PRINT@ 576 PRINT@ 591 PRINT@ 607 PRINT@ 623 PRINT@ 6° 

SET O , 27 SET 31, 27 SET 63, 27. SET 95, 27 SET 127 , 
ROW 11: 

PRINT@ 640 PRINT@ 655 PRINT@ 671 PRINT@ 687 PRINT@ 703 

SET 0 , 30 SET 31, 30 SET 63, 30 SET 95, 30 SET 127 , 30 
ROW 12 : 

PRINT@ 704 PRINT@ 719 PRINT@ 735 PRINT@ 751 PRINT@ 767 

SET 0 , 33 SET 31 , 33 SET 63, 33 SET 95, 33 SET 127, 33 
ROW 13: 

PRINT@ 768 PRINT@ 783 PRINT@ 799 PRINT@ 815 PRINT@ 831 

SET 0 , 36 SET 31 , 36 SET 63, 36 SET 95 , 36 SET 127 , 36 
ROW 14 : 

PRINT@ 832 PRINT@ 847 PRINT@ 863 PRINT@ 879 PRINT@ 895 

SET 0 , 39 SET 31 , 39 SET 63,39 SET 95,39 SET 127 , 39 
ROW 15: 

PRINT@ 896 PRINT@ 911 PRINT@ 927 PRINT@ 943 PRINT@ 959 

SET 0 , 42 SET 31, 42 SET 63, 42 SET 95 , 42 SET 127, 42 
ROW 16: 

PRINT@ 960 PRINT@ 975 PRINT@ 991 PRINT@ 1007  PRINT@ 1023 

SET O , 45 SET 31, 45 SET 63, 45 SET 95, 45 SET 12”, 45 

LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 1 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOTO, 1 PLOT 9 , 1 PLOT19, 1 PLOT 29,1 PLOT 39,1 
ROW 2 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 2 PLOT 9 , 2 PLOT 19, 2 PLOT 29,2 PLOT 39, 2 
ROW 3 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 3 PLOT 9 , 3 PLOT 19, 3. PLOT 29, 3 PLOT 39, 3 
ROW 4 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 4 PLOT 9 , 4 PLOT 19, 4 PLOT 29,4 PLOT 39, 4 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 5 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 5 PLOT 9 , 5 PLOT 19 , 5 PLOT 29 , 5 PLOT 39 , 5 
ROW 6 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 6 PLOT 9 , 6 PLOT 19 , 6 PLOT 29 , 6 PLOT 39 , 6 
ROW 7 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 7 PLOT 9 , 7 PLOT 19 , 7 PLOT 29 , 7 PLOT 39 , 7 
ROW 8 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 8 PLOT 9 , 8 PLOT 19 , 8 PLOT 29 , 8 PLOT 39 , 8 
ROW 9 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 9 PLOT 9 , 9 PLOT 19 , 9 PLOT 29 , 9 PLOT 39 , 9 
ROW 10 : 

HTAB 1 HTAB 10 » HTAB 20 HTAB 30 HTAB 40 

PLOT O , 10 PLOT 9 , 10 PLOT 19 , 10 PLOT 29, 10 PLOT 39 , 10 
ROW 11: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 11 PLOT 9 , 11 PLOT 19 , 11 PLOT 29, 11 PLOT 39, ll 
ROW 12: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 12 PLOT 9 , 12 PLOT 19, 12 PLOT 29 , 12 PLOT 39 , 12 
ROW 13: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 13 PLOT 9 , 13 PLOT 19 , 13. PLOT 29, 13. PLOT 39 , 13 
ROW 14: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 14 PLOT 9 , 14 PLOT 19 , 14 PLOT 29 , 14 PLOT 39 , 14 
ROW 15 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 15 PLOT 9 , 15 PLOT 19 , 15 PLOT 29, 15 PLOT 39 , 15 
ROW 16: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 16 PLOT 9 , 16 PLOT 19 , 16 PLOT 29 , 16 PLOT 39 , 16 
ROW 17: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 17 PLOT 9 , 17 PLOT 19 , 17 PLOT 29, 17 PLOT 39 , 17 
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UF 
LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 18 + 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 18 PLOT 9 , 18 PLOT 19 , 18 PLOT 29, 18 PLOT 39, 18 
ROW 19 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 19 PLOT 9 , 19 PLOT 19 , 19 PLOT 29, 19 PLOT 39 , 19 
ROW 20 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 20 PLOT 9 , 20 PLOT 19 , 20 PLOT 29 , 20 PLOT 39 , 20 
ROW 21: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 21 PLOT 9 , 21 PLOT 19 , 21 PLOT 29 , 21 PLOT 39 , 21 
ROW 22 : 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 


PLOT O , 22 PLOT 9 , 22 PLOT 19 , 22 PLOT 29 , 22 PLOT 39 , 22 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 


40 


PLOT O , 23 PLOT 9 , 23 PLOT 19 , 23. PLOT 29 , 23 PLOT 39 , 23 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 
PLOT O , 24 PLOT 9 , 24 PLOT 19 , 24 PLOT 29 , 24 PLOT 


40 
39 


24 


IBM PC SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 1 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSETO , 0 PSET 79, 0 PSET 159 , O PSET 239 , O PSET 319 , O 


ROW 2 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 8 PSET 79, 8 PSET 159 , 8 PSET 239 , 8 PSET 319 , 8 


ROW 3 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 16 PSET 79 , 16 PSET 159 , 16 PSET 239 , 16 PSET 319 , 16 


ROW 4 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 24 PSET 79 , 24 PSET 159 , 24 PSET 239 , 24 PSET 319 , 24 


ROW 5 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 32 PSET 79 , 32 PSET 159 , 32 PSET 239 , 32 PSET 319 , 32 
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LEFT EDCE 


1/4 ACROSS 1/2 ACROSS 3/4 ACROSS 


ROW 6 :COLUMN 1 
PSET 0 , 40 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 40 PSET 159 , 40 PSET 239 , 40 PSET 319 , 40 


ROW 7 :COLUMN 1 
PSET 0 , 48 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 48 PSET 159 , 48 PSET 239 , 48 PSET 319 , 48 


ROW 8 :COLUMN 1 
PSET 0 , 56 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 56 PSET 159 , 56 PSET 239 , 56 PSET 319 , 56 


ROW 9 :COLUMN 1 
PSET 0 , 64 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 64 PSET 159 , 64 PSET 239 , 64 PSET 319 , 64 


ROW 10: 
COLUMN 1 
PSET 0 , 72 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 72 PSET 159 , 72 PSET 239 , 72 PSET 319 , 72 


RoW ll: 
COLUMN 1 
PSET 0 , 80 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 80 PSET 159 , 80 PSET 239 , 80 PSET 319 , 80 


RIGHT EDGE 


ROW 12°: 
COLUMN 1 
PSET O , 88 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 88 PSET 159 , 88 PSET 239 , 88 PSET 319 , 88 


ROW 13: 
COLUMN 1 
PSET 0 , 96 PSET 


ROW 14: 
COLUMN 1 
PSET QO , 104 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 96 PSET 159 , 96 PSET 239 , 96 PSET 319 , 96 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 104 PSET 159 , 104 PSET 239 , 104 PSET 319 , 104 


ROW 15: 
COLUMN 1 
PSET 0 , 112 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 112 PSET 159 , 112 PSET 239 , 112 PSET 319 , 112 


ROW 16: 
COLUMN 1 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 


PSET O , 120 PSET 79 , 120 PSET 159 , 120 PSET 239 , 120 PSET 319 , 120 


ROW 17: 
COLUMN 1 
PSET 0 , 128 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79, 128 PSET 159 , 128 PSET 239 , 128 PSET 319 , 128 


ROW 18 : 
COLUMN 1 
PSET 0 , 136 PSET 


ROW 19 + 
COLUMN 1 
PSET O , 144 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 136 PSET 159 , 136 PSET 239 , 136 PSET 319 , 136 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 144 PSET 159 , 144 PSET 239 , 144 PSET 319 , 144 


ROW 20 : 
COLUMN 1 
PSET O , 152 PSET 


COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
79 , 152 PSET 159 , 152 PSET 239 , 152 PSET 319 , 152 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 21: 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 160 PSET 79 , 160 PSET 159 , 160 PSET 239 , 160 PSET 319 , 160 


ROW 22 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 168 PSET 79 , 168 PSET 159 , 168 PSET 239 , 168 PSET 319 , 168 


ROW 23 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 176 PSET 79 , 176 PSET 159 , 176 PSET 239 , 176 PSET 319 , 176 


ROW 24 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 184 PSET 79 , 184 PSET 159 , 184 PSET 239 , 184 PSET 319 , 184 
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Appendix E 
Setting Up Your Games Disk 


If you have a disk drive, why not make a menu-driven disk with all of 
the games in this book, just like the software you buy? If your 
computer's BASIC has the chain command, or if you know how to 
address the disk drive from a program, you can make a professional 
looking games disk. The IBM and Apple versions of amenu program 
are included in this section. You may use these programs as a 
general guide for creating menu programs for other systems. 


MAKING A DISK FOR THE IBM PC 


To make a disk for the IBM PC, format the disk using the 
FORMAT /S command, so that the disk will be self-booting. Next, 
make an auto-exec file by doing the following: With your DOS disk 
in the disk drive, type the command EDLIN AUTOEXEC.BAT and 
press the enter key. If you have two drives and the formatted disk is 
in drive B, be sure to type EDLIN B:;AUTOEXEC.BAT. If you have 
one drive, take out the DOS disk and put in your formatted disk now. 

Press I and the enter key; when you see the number 1:, type 
BASICA MENU (or whatever you plan to call menu program) and 
press enter. Now type E and press the enter key. The auto-exec file 
will be saved on the disk in the drive you specified. (I'll bet that was 
easier than you thought!) 

You will need to copy BASICA.COM onto the disk; use the 
command COPY BASICA.COM B:: if you have two drives, the file 
will automatically copy onto the formatted disk in the B drive. If you 
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have one drive, put the formatted disk into the drive when in- 
structed by the monitor. 

Now, copy your game programs onto the newly formatted disk 
and add the menu program listed below. You will need to change all 
end statements in the game programs to CHAIN “MENU”, 10 (if you 
have used a different file name for your menu and a different starting 
line number, substitute those for ‘‘ MENU” and ‘‘10”). Also, if you 
renumbered any programs, remember that the chain statement in 
the menu program must refer to an existing line number; check your 
program to see what line number you want the computer to chain to. 


Menu Program for the IBM PC 


10 WIDTH 80:COLOR 7,0,0:KEY OFF:CLS 
20 LOCATE 10,25:PRINT "ADULT COMPUTER GAMES IN 
BASIC" 
30 PRINT:PRINT: PRINT TAB(38) "BY" 
40 PRINT:PRINT: PRINT TAB(32) "DAVID W. CHANCE" 
50 PRINT:PRINT:PRINT:PRINT:PRINT TAB(25)"IBM PC 
conversions by Tan A. Summers" 
60 PRINT:PRINT: INPUT "Press Enter For Menu" ,AA$ 
100 CLS:PRINT "1) HOLD TIME":PRINT: PRINT U2) 
ELEVATOR":PRINT: PRINT "3) FAREWELL": PRINT 
110 PRINT "4) MIND INVASTON":PRINT: PRINT 5) 
KNIGHTS":PRINT: PRINT "6) INJECTION':PRINT 
120 PRINT '7) POINT A TO POINT B":PRINT:PRINT "8) 
INTERCEPT" 
130 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
140 PRINT 
150 PRINT "Press Space Bar for More Games" 
160 RS=INKEY$ 
170 IF R$="" THEN GOTO 160 
180 IF R$=" "THEN GOTO 200 
190 R=VAL(R$) 
195 ON R GOTO 310,320, 330,340,350, 360, 370, 380, 390 
200 CLS:PRINT "1) INSOMNIA":PRINT:PRINT "2) 
LAP-THE-TRACK": PRINT: PRINT "3) BE PREPARED": PRINT 
210 PRINT "4) THE COURSE":PRINT:PRINT "5) TRAPPED" 
:PRINT:PRINT "6) RAINY DAZE ":PRINT 
220 PRINT "7) GENERAL STORE":PRINT: PRINT "8) 
RAIN OF TERROR" 
230 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
240 PRINT 
250 PRINT "Press Space Bar for More Games" 
260 K$=INKEY$ 
270 IF K$="" THEN GOTO 260 
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280 IF K$="" "THEN GOTO 200 

290 K=VAL(K$) 

295 ON K GOTO 410,420,430,440,450, 460,470, 480 , 490 

300 DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 100 

310 CHAIN "HOLDTIME" ,3 

320 CHAIN "ELEVATOR",5 

330 CHAIN "FAREWELL" ,5 

340 CHAIN "MIND_INV",25 

350 DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 359 

351 CLS:LOCATE 3,1 

352 PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

353 PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

354 PRINT "TO CONTINUE":DEF SEG:GOTO 356 

355 IF INKEY$<>"" THEN GOTO 355 

356 CMD$=INKEY$ 

357 IF CMD$="" THEN GOTO 356 

358 IF CMD$=" " THEN CLS:GOTO 100 

359 CHAIN "KNIGHTS",5 

360 DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 369 

361 CLS:LOCATE 3,1 

362 PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

363 PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

364 PRINT "TO CONTINUE":DEF SEG:GOTO 366 

365 IF INKEY$<>"" THEN GOTO 365 

366 CMD$=INKEY$ 

367 IF CMD$="" THEN GOTO 366 

368 IF CMD$="_" THEN CLS:GOTO 100 

369 CHAIN "INJECTOR" ,5 

370 CHAIN "POINT" ,5 

380 CHAIN "INTRCPT",3 

390 GOTO 999 

410 CHAIN "INSOMNIA", 20 

420 CHAIN "LAPTRACK",3 

430 CHAIN "BEPREP",5 

440 CHAIN "COURSE", 20 

450 CHAIN "TRAPPED" ,5 

460 CHAIN "RAINYDAZ",5 

470 CHAIN "STORE" ,3 

480 CHAIN "RAIN",20 

490 GOTO 999 

999 END 
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MAKING A DISK FOR THE APPLE Il 


Apple II users don’t have to worry about formatting. Just write 
the menu program below with a new disk in the drive, and when you 
are satisfied, type INIT MENU (or whatever you want to call it), and 
press the return key. The menu program will automatically start 
each time the system is booted with that disk in the drive. 

However, you probably don’t have the chain command to work 
with. Instead, at the end of each program put PRINT CHR$(4); 
“RUN MENU” in place of the end statement. The PRINT CHR$(4) 
statement tells the disk drive to reload your menu program. 

If you have another kind of computer and aren’t sure how to 
make a menu-driven disk, try asking someone at the store where 
you bought your computer. Chances are, there’s an easy way to do it 
for your computer, too. 


10 TEXT : HOME 
20 PRINT "1) MIND-INVASION" 
30 PRINT "2) RAIN" 


an QOINT oy TADTOArYH 
aM we 


ee aes wee a 


50 PRINT "4) KNIGHTS" 

60 PRINT “5) INSOMNIA" 

70 PRINT "6) ELEVATOR" 

80 PRINT “7) FAREWELL" 

90 PRINT “8) STORE” 

100 PRINT "9) RAINYDAZE” 

110 PRINT "10) TRAPPED" 

120 PRINT "tt) INJECTION" 

130 PRINT “12) HOLDTIME" 

140 PRINT "13) BE PREPARED" 

145 DS = CHRS (4) 

150 PRINT : PRINT : PRINT “ENTER 
THE NUMBER OF THE GAME YOU 
WANT": INPUT "TO PLAY. “;A 

155 IF A >) 414 OR A ¢€ 1 THEN 10 

160 ON A GOTO 170,180,190,200,21 
0,220,230,240,250,260,270,28 
0,290,300,310,320 

170) PRINT D&;"RUN MIND-INVASION" 


180 PRINT D$;"RUN RAIN" 

490 PRINT D$;"RUN LAPTRACK" 
200 PRINT DS; "RUN KNIGHTS" 
210 PRINT D&;"RUN INSOMNIA“ 
220 PRINT D$;"RUN ELEVATOR” 
230 PRINT D$;"RUN FAREWELL" 
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240 
250 
260 
270 
280 
290 
300 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
HOME 


D$; "RUN 
D$;"RUN 
DS; "RUN 
DS; "RUN 
D$; "RUN 
DS; “RUN 
END 


STORE" 
RAINYDAZE" 
TRAPPED" 
INJECTION" 
HOLDTIME" 

BE PREPARED" 
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index 


Index 


A 
Action games, 13, 42, 156, 182, 190, 
195, 212, 306, 314 
Amount on Board game, 271 
Appie Ii, adapting programs for, 469 


B 
Be prepared for the Apple Il, 415 
Be Prepared for the 1BM PC, 377 
Be Prepared game, 182 
Betting games, 271, 279 


c 
Call routine, 9 
Chance games, 205 
CHR$, 469 
Clear command, 469 
CLS, 469 
Code games, 20, 28, 35, 165 
Columns, 471 
Course for the IBM PC, 381 
Course game, the, 13 


D 
Dangerous Affair, 165 
Date Service game, 121 
Delay routines, 469 
Disk set up for the Apple li, 484 
Disk set up for the IBM PC, 481 
Driver's Test game, 42 


E 
Elevator for the Apple li, 439 
Elevator for the IBM PC, 331 
Elevator game, 234 
Else, 470 
Experiments with sound, 3 


F 
Farewell for the Apple Il, 446 
Farewell game 249 
From Point A to Point B game, 296 


G 
Games disks, 481 
General interest, games of, 59 
General Store for the Apple Il, 404 
General Store for the IBM PC, 394 
General Store game, 92 
Graphics, 473 
Guessing games, 50, 104, 288 


Hold Time, 156 
Hold Time for the Apple Il, 410 
Hold Time for the IBM PC, 326 


I 
IBM PC, adapting programs for, 469 
Injection for the Appie Il, 464 
Injection for the IBM PC, 352 
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Injection game, 306 

INKEY$, 470 

Insomnia for the Apple Il, 452 
Insomnia for the IBM PC, 369 
Insomnia program, 258 
intercept for the IBM PC, 362 
Intercept game, 314 


K 
Key a Date game, 131 
Knights for the Apple Il, 421 
Knights for the IBM PC, 347 
Knights game, 195 


L 
Lap-the-Track for the Apple Il, 458 
Lap-the-Track for the IBM PC, 372 
Lap-the-Track game, 279 
Love One Ancther game, 111 


M 
Master Code, 35 
Math-a-Code game, 28 
Mind Invasion for the Apple Il, 426 
Mind Invasion for the IBM PC, 342 
Mind Invasion game, 212 
Monochrome monitor, 473 


N 
Numbers, random, 471 


Pp 
Pariners game, 288 
Party games, 61, 75, 104, 269 
Point A to Point B for the iBM PC, 356 
Print , 470 
Print using, 470 
Program listings for the Apple tl, 403 
Program listings for the IBM PC, 325 
PSET, 472 


R 


Rain of Terror, 190 
Rain of Terror for the Apple Il, 419 
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Rain of Terror for the IBM PC, 400 
Rainy Daze for the Apple Il, 455 
Rainy Daze for the IBM PC, 391 
Randomize staternent, 470 
Respect Your Computer, 104 

Rnd, 470 


$ 

Screen formatting, 471 
Screen locations, Apple Il, 476 
Screen locations, IBM PC, 478 
Screen locations, TRS-80, 475 
Set statement, 472 
Skill and logic, games of, 11 
Skill games, 92, 141, 172, 222, 234, 

249, 263, 296 
Sound effects, 473 
Sound experiments (TRS-80), 3 
Sound routine for the Apple fl, 9-10 
Sound routine for the TRS-80, 1-3 
Squares game, 141 
STRINGS, 471 


~ 
' 


Tab statement, 472 
Trapped for the Apple ll, 431 
Trapped for the IBM PC, 384 
Trapped game, 222 
Triangle game, 205 
Troubles game, 75 


U 
USR statements, 9 


v 
Variables, length of, 473 


Ww 
What Is It game, 50 
Where's the Necessary Room game, 
61 
Width of screen, 471 
Words-Zit game, 20 


33 Adult Computer Games in BASIC 


If you are intrigued with the possibilities of the programs included in 33 
Adult Computer Games in BASIC for the TRS-80™, Apple II/Ile®, and 
IBM PC® 

(TAB BOOK No. 1627), you should definitely consider having the 
ready-to-run tape or disk containing the software applications. This 
software is guaranteed free of manufacturer's defects. (If you have any 
problems, return the tape or disk within 30 days, and we'll send you a 
new one.) Not only will you save the time and effort of typing the 
programs, the tape or disk eliminates the possibility of errors that can 
prevent the programs from functioning. Interested? 


Available on tape for the TRS-80, Models | and Ill, 16K. Available on 
disk for the TRS-80, Models | and Ill, 32K; forthe Apple ll, II plus, and//e, 
32K; and for the IBM PC, 32K. Each tape or disk costs $19.95 plus $1.00 
each shipping and handling. Each disk costs $34.95 plus $1.00 ship- 
ping and handling. 

i MCENROE) SMM MMR GT SERN IN ER RS GRIGG SCOR TI a MT EE 
I'm interested in ready-to-run software for 33 Adult Computer 
Games in BASIC for the TRS-80™, Apple Ii/\le®, and IBM 
PC®. Send me: 


_____. tape for the TRS-80, Models | and Ill, 16K (6034S) 

__. disk for the TRS-80, Models | and Il, 32K (60358) 

____. disk for the Apple Il, Il plus, and /e, 32K (62355) 

____. disk for the IBM PC, 32K (6615S) 

_____. TAB BOOKS catalog 

____. Check/Money Order enclosed for $ ——___ (|n- 
clude $19.95 for each tape or $34.95 for each disk 
plus $1.00 shipping and handling). 


_____—. VISA MasterCard 
Account No. Expires 
Name 

Address 

City State Zip 
Signature 


Mail To: TAB BOOKS INC. 
Blue Ridge Summit, PA 17214 


(Pa. add 6% sales tax. Orders outside U.S. must be prepaid with 
international money orders in U.S. dollars.) 
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33 Adult Computer Games in BASIC 
for the IBM PC®, Apple II®///e® and TRS-80™ 


by David W. Chance 


Get set for a great new computer game-playing experience . .. 33 
exciting action-packed games and puzzles designed especially for 
adult interests and abilities! Quick thinking and plenty of imagination 
are needed as you play word and math games, fast action graphic 
games, guessing games, games of chance, even party games for up 
to 10 players. 

Here are target and action games, a fascinating party game 
called “Doctor Chips” that has the computer assuming the role of your 
psychologist, a computer dating game, wildly funny games that will 
liven up any party, and much more. You can test your driving skills, find 
games that take full advantage of your micro’s sound and graphics 
potentials, unravel mysterious codes, see if you can keep up with the 
computer as you take a whirlwind grocery shopping tour, play games 
of chance (that you may, or may not win), and play games like 
“Insomnia”, “Rainy Daze”, “Elevator”, “Dangerous Affair”, and many 
others. 

Plus, these carefully written and fully explained programs make it 
easy for computer users to learn new programming techniques and to 
use different programming approaches for solving the same problem. 

So, if you're looking for games that are designed for adult enter- 
tainment, rather than the “zap the aliens” variety that most youngsters 
prefer .. . if you're interested in livening up your next party with some 
truly unique computer entertainment , . . or if you'd like to improve your 
programming expertise while playing computer games, then this is the 
book you've been waiting for! 

David W. Chance is a computer programmer who has written 
many game programs for a variety of computer systems. He is the 
author of TAB's 33 Challenging Computer Games for the TRS-80""/ 
Apple'/PET®. 
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